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1.0 INTRODUCTION AND STARTUP 

This document describes the COLORFORTH system provided in a rom 
pack for the RADIO SHACK COLOR COMPUTER. It is an extension o-f 
the FORTH Interest Group (fig) model of the language FORTH. 



1.1 REQUIREMENTS 



SOFTWARE 



Rom COLOR BASIC must be resident in the computer 
in order for COLORFORTH to function. EXTENDED 
BASIC is not required. 



HARDWARE 



The COLOR COMPUTER must have at least 4k bytes of 
memory. COLORFORTH will automatically adjust to 
more if you have it. To use the cassette 
interface, it is necessary that the computer have 
control over the motor. 



1.2 DISCLAIMER 

This software is sold as is. It is believed to be free of error, 
but as we all know, no large piece of software is ever completely 
free of problems, so BEWARE! 



1.3 HOWEVER 

If you find any errors in the software, please notify the 
distributer so that future versions may be corrected. 



1.4 STARTUP 

To start COLORFORTH: 

1. Verify power is off. 

*** NEVER, NEVER INSERT OR REMOVE CARTRIDGES *** 
*** WITH THE POWER ON ! ! ! *** 

2. Plug the cartridge into the slot on the side. 

3. ONLY THEN turn on the power. 

The computer should start up with a message on the screen saying 
that COLORFORTH is in control and "BELL" tone should be heard if 
you have the sound turned up. 
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1.5 FIRST IMPRESSIONS 

After COLORFORTH is started as described previously, the FORTH 
operating system is running, with its compiler, interpreter, and 
text editor. Several changes from BASIC may be noted. First, if 
the volume is turned up on your television, you will notice a 
'tick' sound emitted as each key is pressed. This is to help 
reduce key errors by providing a positive feedback indication 
that a key has been sensed. Second, if you use the backwards 
arrow key to backspace the cursor and erase characters, you will 
notice that a "BELL" tone is emitted with each key stroke when 
the cursor is at the beginning of the line. If you do not wish 
to hear these tones, simply turn the volume of the television 
down . 



1.6 WHAT IS COLORFORTH ? 

COLORFORTH is an implementation of fig-FORTH with the addition of 
many FORTH-79 words plus many words which provide interfaces to 
features specific to the COLOR computer. In FORTH the term 
"word" refers to an identifiable function or command, which in 
some computer languages is referred to as a subroutine or 
procedure. 

If you wish to run FORTH-79 software, you should carefully read 
the sections which describe how COLORFORTH differs from FORTH-79. 

COLORFORTH contains many features which are supplements to 
fig-FORTH and FORTH-79. Yo u_ have full control over t he 
allocation of memory between dictionary space (for programs) and 
t he vi rtuaT" i nput / output buff^ er s J_wh ere, e ■ g_._.____±.e>t±_~ -f-oc— -sour.ee 
code is edited). Thi s~ permi ts you to optimize the use of memory 
for your spec l + Tc application. 

Bi nary overlays (compiled programs) are support ed. This permits 
you to save compiled programs on tape for later use. For a large 
application this can save the time to load the program from tape 
by about a factor of three to four. 

Sound output is possible in twg ^^fjgcms^ single ton es (as in BASIC) 
and a h igh speed procedure which permits arbii x^py- — waveforms—to 
b e sen t . 

A ,£uJ-L^as senibler is not inclu dsd-t- however, the vocabulary and a 
few , basic words are included which permit an advanced programmer 
to insert specially hand coded machine language routines. A 
full 6809 FORTH assembler will be available on cassette. 

A FORTH DECOMPILER is included as a learning and debugging tool. 
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1.7 NEW USER OF FORTH OR A VETERAN ? 

Are you a FORTH veteran? If so, skip the next paragraph. 

Are you a newcommer to the FORTH environment? If so, you should 
purchase the book STARTING FORTH by L. Brodie. This is a good 
introduction to this new and -Facinating programming tool known as 
FORTH- It is published by Prentice-Hall and should be available 
-From bookstores or your COLORFORTH distributer. C0L0RFORTH 
provides a complete programming environment which in many 
respects is -far superior to BASIC. As you learn how to do FORTH 
programming, you will initially find some o-f the methods of doing 
things to be peculiar. The environment, however, has evolved 
over many years by expert programmers who honed the environment 
-for e-F-Ficiency and speed. Once you learn the fundamental methods 
of FORTH programming, you too will find that you can put your 
machine to work in sophisticated ways with far less programming 
effort than by using other computer languages. You may wish to 
skim through Chapter 2 to get an idea of how the COLORFORTH 
system is organized, but do not fret over the fact that some of 
it may sound obscure — nothing in there is necessary for one to 
use the basic system. Come back to it later after you have 
gotten a feel for the way the system works. 

If you sre a FORTH veteran, then you may be interested in the 
system configuration which is described in Chapter 2. 

1.8 WHAT IS THE FORTH INTEREST GROUP < FIG ) ? 

The FORTH INTEREST GROUP is an independent group of FORTH 
enthusiasts whose aims are to educate others and to promote 
FORTH. They may be contacted at 



P O Box 1105 

San Carlos, CA 94070 



(415) 962-8653 



They publish a newsletter FORTH DIMENSIONS (*12/yr) and have many 
other publications available. 
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2.0 COLORFORTH SYSTEM CONFIGURATION 

The following describes some o-f the aspects of how the COLORFORTH 
system is organized and how it is similar and/or dissimilar to 
other FORTH systems. 



NOTICE! 



ALSO! 



I-f you are a complete beginner to FORTH, you should 
probably skip this section -for now, and go to the book 
STARTING FORTH which you should have purchased. Just 
start working through the book. Do not be afraid of 
experimenting! The program is in the ROM PACK and can 
not be destroyed by any programming error. Just press 
the RESET button at the right rear and restart if 
necessary. 

Your ROM PACK contains fig-FORTH which is not identical 
to the version of the FORTH-79 which is discussed by 
the author of the book STARTING FORTH, so refer to the 
later section entitled FORTH-79 DIFFERENCES as you go 
through the book. 



NOTATION 



The following 
this manual . 



symbol terminology is used throughout 



SYMBOLS 


al 


or addrl 


n. 


nl, n2 


dl, 


, d2 


ul, 


, u2 


bl 




c 




f 




tf 




ff 




stringl, t 



MEANING 

16 bit address 

16 bit signed number 

32 bit signed double number 

16 bit unsigned number 
8 bit byte — unsigned 
7 bit ascii character 

Boolean flag 

True boolean flag — 1 

False boolean flag - 

Ascii text string 
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STACK VALUES (b — t ; a) 

b the stack be-fore the word executes 
— the word being de-fined 
t the string which -follows the word in some cases 
; denotes the place where the < ENTER > key would be pressed 
a the stack after the word executes 

STACK PARAMETER DESCRIPTIONS 
nl\n2\n3 

The value nl was placed on the stack -first, then n2, then n3. 
The notation is read "nl under n2 under n3" . nl is on top. 

E.g. 

In the description o-f a FORTH word called <name>, the -following 
might appear: 

al\nl\n2 — t ; a2 

which is interpreted as -follows: be-fore the word <name> is 
executed there are three items on the stack with n2 being 
the last placed on, nl the previous one, and al the earliest 
one. Following <name> in the keyboard input is the text 
string t followed by pressing the < ENTER > key. 
Following the execution of the word <name>, the stack is left 
with the one item a2 . 
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2. 1 MEMORY ALLOCATION 

COLORFORTH will run on any RADIO SHACK COLOR COMPUTER with 4k, 

16k, or 32k bytes of user read/write memory <RAM) . The system is 

normally initialized with 8 screen buffers (only 1 on a 4k 

Ti 1028 Tbytes" i n 1 en g t h , and holds one 



machi ne) ; 

FORTH SC RFEN ( or BLOCK) o-f 1 Q24_ Ilk) bytes o-f riata~plus 4 bytes 
o f control information. The terms SCREEN and BLOCK are used 
somewhat interchangabl y; however, SCREEN is more appropriate in 
th e case of text ( d i sp Laj ji£e£LJ^a..-±i3^ 

i s a more abstract term useful in cases .wh jac.e.- th.e_ ria_t.a is.— ei-ther 
text, numerical data, or machine code . The term buffer refers to 
orYe or more of the sets of machine memory locations dedicated to 
holding the SCREENS and BLOCKs. The ex i stance of 8 buffers means 
that a program consisting of 8k of text may be edited or 
manipulated in memory, without resort to moving text to and from 
tape. 

The maximum num ber of BLOCKS in memory (preset to 8 — or 1 in 
the case of a 4k machine) is held in a variable named BM AX . The 
FORTH "wor d BLOCK wi 1 1 not permit you to request a bfocT? number 

be 



greater than BMAX or less than 1" 
changed 



l ne val ue of BMAX may 



by use of the word called #BLUCKS 



This wiTT~Tanse~the 



5 y~ilEenr~to change the number of buffers it uses and the space 
r ecTai~med is used for compiled program dictionary space. E . g . , 
to - change the allocation to 3 buffers, use ~~ ' 



#BL0CKS 



< ENTER > 



(The notation <ENTER> is used to denote the place in the input 

where the key on the terminal marked "ENTER" is pressed. 

Similarly, <BREAK> would indicate where the key marked "BREAK" is 
pressed . ) 

The above sequence will recover 5k bytes for additional 
dictionary space (until a RESET causes it to go back to default 
value). A similar operation could be done to increase the number 
of buffers used (and therefore, of course, reduce the amount of 
program storage available). 



caution should be taken with the use of the #BL0CKS 



command 
moves the 



rt changes notion ly the number of buffers, but it also 

user ram pointer - called DP T Any program y~ou~~ha ve "^f 



compi led up to tT1e^^OrnTe~~*you~use #BLOCTCS~wTTl BeTeitroyed, 



Thjg___ system stacks jare_ 



The R ETURN STACK sha res^ a page 
terminal INFOT bTFr^"5cT "■" 1" t s 5 j z 



56^ bytes) of memory with the 



is 1 imi L ted_to_a bout— one 
hlAnlJrlFd~I^veTs~ of mirsTTTTgT™" The" D ATA""STACTT Ts^ allocated about 2 
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pages, so it is limited to abouttwo^bJUDiitiedi--- data^items. 



2.2 BLOCK INPUT/OUTPUT 

For those -familiar with other FORTH implementations, the word 
BLOCK is the only -fig-FORTH mass-storage word in the system. All 
lower words (those used by BLOCK in a typical fig-FORTH system) 
are omitted, since they are not needed for this cassette 
implementation. The function of all of those words is contained 
in the word (BLOCK) to which BLOCK points. The word BLOCK is 
placed into RAM upon startup, and it consists of a "hook" 

: BLOCK (BLOCK) ; 



This me ans that th e definition of BLOCK may be changed. E.g., an 
enterpr i si ng programmer2^rgfiT2k!l&^t^ ^" i n t er f Ace t Q .aLZd J-S k un it 

; // and callT~the new disk_word DSKBLK^^ JThen the^^tem_BiPJCK__word 

^malrnje _ "^raTched~tcr point To DSKBLKL.by 



v)f 



DSKBLK CFA 



BLOCK 



2.3 BASIC ROM CALLS 



FORTH word 



calls 



Function 



EMIT 

KEY 

7TERMINAL 

TONE 

WRITE 

WRITE 

WRITE 

WRITE 

READ 

READ 

CLS 

JSTK 



C*A0021 
*A1B1 

C*A0001 
4A951 
*A65C 
*A290 
*A2A8 
*A444 
$A629 
*A18& 
*A91C 
*A9DE 



Send char to output dev. 

Get char from keyboard 

Test for key pressed 

Generate tone 

Open file 

Write byte to cassette 

Write rest to cassette 

Close the file 

Open the file 

Read a byte of data 

Clear screen 

Read joystick values 



Note: the " C*XXXX3 " notation used refers to an indirect call 
to the address pointed at by the contents of the location *XXXX. 
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2.4 CASSETTE INTERFACE 

Five words have been included in the system to permit easy 
writing and reading o-f data to and -from cassette. These are: 

READ ( nl — ) 

READS ( nl\n2 — ) 

WRITE ( nl ) 

WRITES ( nl\n2 — ) 

I n these words, nl is the -fir st SCRE EN or BLOC K_to _read__ or w rite. 
n2, when present, is the number of sCREENs or BLQCKs t o_ _xeaiL_or 
write. 

DO NOT FORGET TO SET THE RECORDER TO THE PLAY OR RECORD MODE, AS 
APPROPRIATE, BEFORE PRESSING THE < ENTER > KEY. 

The -fifth word is 

CLOADS ( nl — ) 

nl screens will be loaded -from c asset t e , andl_ j _cjomp.i-Led_ or 

i nterp reted. Each SCREEN wiTT~Ee ^p^^jj iTTT^oHDXtff er 1 and then 1 
LOAD is performed. Then the next screen is read and loaded, 
etc. This procedure was choosen so that only a single buffer 
would be required in order to have the system function with 
minimal memory. This means that a very large program may be 
compiled. The number nl specifies the number of screens to be 
read and loaded, and it must match the actual number of screens 
on the cassette. 

NOTE: For CLOADS to function properly, it must con fcroL-the s ^' 
cassette motor. So, the motor control wires must be connected. 



NOTE: In FORTH, spaces are extremely significant. In the use 
of the words above, e.g., 19 CLOADS , it is essential that 
there be a space between 19 and CLOADS 



2.5 DOWN-LOADED WORDS 

Several words are d ownlo ad ed f rom ROM into RAM so that parts of 
them may be changed. They occupy about 80 bytes and include: 

(ABORT) BLOCK 
FORTH ASSEMBLER EDITOR 

(ABORT) is moved to ram so that its run— time behavior may be 
changed by the user. BLOCK is moved to ram for the same reason. 
FORTH , EDITOR , and ASSEMBLER are VOCABULARIES and must be in 
RAM in order to function. 
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2.6 WHAT IS MISSING ? 

There are several -fig-FORTH words which are not in this system. 
For the most part these are words in the -fig— FORTH vocabulary 
which are used for disk inter -Faces. They are not needed in this 
implementation. They are 

BUFFER +BUF R/W INDEX TRIAD PREV USE 
FLUSH UPDATE EMPTY -BUFFERS 

If desired, an experienced programmer can add these and change 
the hook for BLOCK as described above. 



2.7 NEXT 

For the interested assembly language programmer, NEXT is at 
*CC>52. 
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2.S MEMORY MAP 



SYSTEM RAM FOR BASIC 



VIDEO DISPLAY RAM 



DOWN LOADED WORDS 
MOVED FROM ROM 



*0000 

«040O SCREEN 

*06OO 
*06AA UP 



I 
I 
I 

/////////////////////////////////////////// 

I 
I 
I 



USER VARIABLES - TABLE 



DATA STACK 



408AO SO/TIB 



I 
I 

I 
/////////////////////////////////////////// 

I 
I 
I 



TERMINAL INPUT BUFFER <TIB) 



RETURN STACK 



SCREEN BUFFER NUMBER 1 



I 
I 
I 
/////////////////////////////////////////// 



SCREEN BUFFER NUMBER 8 



USER DICTIONARY SPACE 



ADDITIONAL RAM FOR 32K SYSTEMS I 



******************************************* 



FORTH NUCLEUS 



10K BYTE ROM 



*09AO RO/FIRST 



*0DA4 (LIMIT 
4K 
SYSTEM) 

*29C0 (LIMIT 
16/32K 
SYSTEM) 

*3FFF 1<SK END 

*7FFF 32K END 



*COOO 
*E7FF 
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3.0 EDITOR 



3.1 EDITOR COMMENTS 

The EDITOR contained in the rom pack is modeled after the editor 
described in the introductory book STARTING FORTH by L. Brodie. 
The EDITOR here has been extended and improved. The most obvious 
change is that the screen being edited is always immediately 
displayed to the user. The word L is there-fore not needed 
(although it is present). Owing to limitations with the size of 
the television display, only a "window" into the screen is 
displayed at any moment. The window is an area of 11 lines, 
centered around the cursor position. 

The edit buffer is treated as 32 lines of 32 characters. The 11 
lines surrounding the cursor position are displayed at the top of 
the screen area, and the 12th line is displayed in reverse video 
with the current screen number, line number, and cursor position. 
Lines 13 to 16 of the display show the user command input. 

If you have just turned on the computer, any screen to be edited 
must first be cleared to blanks by: 

nl CLEAR < ENTER > 

The number nl is the screen number to clear. Note: For the 
examples in the book STARTING FORTH and the discussion in this 
manual, use screens numbered 1 to 8 as that is all you have in 
this cassette oriented system. You can now start the edit 
session by 

nl EDIT 

The television will display the split screen format described 
above. At this point the upper section should be blank, with a 
black square in the upper left corner of the screen, and your 
normal blinking cursor in the lower left corner. The black 
cursor is the pointer into the edit area, and it is the cursor 
referred to in the instructions to the editor which follow. 

For a complete discussion of the use of the basic edit commands 
you should refer to the book STARTING FORTH, although it is 
similar enough to typical fig-FORTH editors that an experienced 
FORTH programmer should be able to use the editor with just the 
abbreviated discussion presented below. The extensions to the 
editor are discussed below also. 
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3.2 LINE SPREADS 

The two commands "SP" and "U" cause the text below the cursor 
to be moved down by one line. Since only a part o-f the edit 
bu-f-fer can be viewed at a time, there is a possibility that you 
will try to spread text off the bottom o-f the edit buffer. To 
prevent this, a protection word "?31" has been installed for 
use inside "SP" and "U" . This word causes a warning to be 
sent to the display if data will be lost from line 31, and then 
the system waits for your response. You may abort your command 
if you do not want to lose line 31. 



3.3 EDITOR INTERNALS 

This editor has its own interpreter, called QIT. This word 
allows the editor to split the screen into two parts and trap 
errors while remaining in the editor vocabulary. This is 
possible because the editor traps all errors by changing the 
function of (ABORT) to vector to ERR instead of ABORT. WARNING 
is changed to -1 to force all errors to go through (ABORT) to 
ERR. The word QUIT is redefined to restore WARNING and (ABORT) 
to their former state and then go to the FORTH QUIT . So, when 
in the EDITOR, to get back into FORTH you should type 

QUIT < ENTER > 
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3.4 AN EDITOR EXAMPLE: 



A LINE OF TEEXT 



1 CLEAR 

1 EDIT 

3 T 

P THIS IS 

WIPE 

P THIS IS A LINE OF TEXT. 

U HERE IS ANOTHER ONE 

3 T 
F EX 

1 DEL 

5 T 

P THIS IS A ANOTHER ONE ONE. 

F AANOTHER 

R ANOTHER LINE 

D ONE 

1 DEL 

4 T 
F A 

TILL ER 
8 T 

P HERE IS A TEST LIST 

F LIST 

E 

8 T 

D TEST 

I NEW LINE 

3 T P EXAMPLE OF TWO COMMANDS 

X 

QUIT 
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3.5 EDITOR WORDS 



WORD 



(b — 



a) 



FUNCTION 



LINE EDITING COMMANDS: 
From STARTING FORTH editor: 



T 
P 

U 
M 



(n 



) 



( — t;> 



( — t;> 



Sets the cursor to start o-f line n. 

Text -following space after P is placed into 
line pointed to by cursor. 

Text -following space after U is inserted 
under the current line and all lower lines 
are moved down one. 



(nl\n2 — ) Copies current line pointed to by cursor 
UNDER line n2 on block nl. 

( — ) Deletes line pointed to by cursor and moves 
lower lines up one. Line 31 becomes blank. 



Added from fig editors: 



H 


( 


— 


) 


K 


( 


— 


) 


SP 


< 





) 



TOP 
BOT 







^ 



S/t 



,v/ 



( — 



Holds the line pointed at by cursor in PADI. 

Kills (erases) the line pointed at by cursor. 

SPreads the lines the line pointed at by 

cursor and all following lines move down one. 

It tests line 31 for potential data loss. 
Current line becomes blank. 

) Moves cursor to TOP of edit screen. 

) Moves cursor to BOTtom of edit screen. 

) Down arrow: Moves cursor to beginning of next 
lower line. 

) Up arrow: Moves cursor to beginning of 
previous line. 

) Double down arrow: Moves cursor to beginning 
of fourth (4th) line below current line. 

) Double up arrow: Moves cursor to beginning 
of fourth (4th) line before current line. 
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STRING EDITING COMMANDS: 
From STARTING FORTH editor; 

F ( — t; ) Finds -First occurrence of the text -following 
(\ Kt the blank after F. Starts at current cursor 

ViVv "** Y^ posi t i on . 



Kv S <n — t;) Searchs for the text string following the 

command S. Starts on current screen and goes 
to screen n— 1. Stops at each occurrence 
of the string and you then may either: 
press < BREAK > to stop search and leave 
cursor pointing at string, or 
press any other key to continue search. 

E ( — ) Erases as many characters GOING BACKWARDS 

from cursor as are in the buffer PADF. 
Typically used after F or S. 

D ( — t; ) Deletes first occurrence of text following 

the command D , searching from cursor 
position to end of screen. 

TILL ( — t; ) Deletes all text starting at cursor position 

until and including the string following the 
command TILL . Works on current screen only. 
If string not found, no delete occurs. 

I ( — t; ) Inserts text following the command I into 

the edit buffer after the current position 
of the cursor. Text following is pushed off 
the end of line, and those at end are lost. 

R < — t; ) Replaces the string just found (by, e.g., F) 

with the string following the command R . 

Additions to editor: 

Sets cursor to current line plus n. 

Returns number of characters per line (32). 

DELetes n characters BEFORE the cursor and 
compresses the line to omit the space. 
Fills end of line with blanks. 

C (n — ) Cursor movement: moves forward (or backwards 

if n is negative) by n characters. 

(R) ( — ) Text at PADI replaces the text in the 

current line. 

(F) ( — ) Searches for the string in PADF, starting 

with the current cursor position till end of 
the screen. 

(I) ( — ) Inserts the current contents of PADI into 
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(n — ) 


C/L 


( — n) 


DEL 


(n — ) 
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edit bu-f-fer at the location o-F the cursor. 
Any text pushed o-f-F end o-F line is lost. 

BMOV <al — ) String at PAD is moved to address al. 

PADF ( — al) Returns address of the Find buf -Fer as al. 

PADI ( — al) Returns address o-f the Insert hu-F-Fer as al. 

p AD ( — al) Returns address o-F scratchPAD area as al. 

TEXT (c — t;) Accepts text following command TEXT into 

into scratchpad area PAD up to the character 
with ascii value c (or up to maximum o-F C/L 
characters or <ENTER>) . 

GTEXT <al — ) Accepts text -From input screen until a 

delimiting A is -Found or the <ENTER> key 
is pressed; text is moved to address al. 



FULL SCREEN ORIENTED COMMANDS: 

From STARTING FORTH editor: 

WIPE ( — ) Clears the current screen to all blanks. 

COPY <nl\n2 — ) Copies screen nl to screen n2. 



Added to the editor: 

N ( — ) Go to Next higher edit screen and reset 

cursor to top o-f screen. 

B ( ) Go Back to previous screen and reset cursor 

to top of screen. 

L- < — ) Lists the current screen. Not needed with 

crt screen oriented editor. 

EDIT (nl — ) Sets EDITOR vocabulary, modi-fies (ABORT) to 

point to ERR, sets WARNING to -1, and then 
executes QIT. 



CLEAR 



(nl 



) CLEARs screen nl to all blank? 
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NEW ( — ) Permits entry of NEW lines o-f text into 

current edit screen, staying in input mode 
till a null line is entered. EXAMPLE: 

1 EDIT <ENTER> ( selects editor ) 
3 T <ENTER> < set cursor to line 3) 

NEW <ENTER> ( start NEW insert mode) 

THIS IS A TEST< ENTRY > 
THIS IS ANOTHER TEST< ENTRY > 
<ENTRY> < a null line ) 

The two lines o-f text -following NEW will be 
placed in lines 3 and 4 o-f screen \1. 
Previous contents o-f those lines are lost. 
The line with < ENTRY > only is a null line 
(i.e. it contains nothing) terminates the 
input mode; line \5 will be unchanged and 
the input mode will be exited back to the 
normal edit mode. 



MISCELLANEOUS EDITOR WORDS 

These are normally not ever directly used by a user, but an 
enterprising programmer who wishes to extend the EDITOR might 
use them. 

-TEXT (al\nl\a2 — -f ) Primative string match routine. 

Matches string at al against string at a2, 
for a count of nl characters. Flag f is 
returned true ( 1 ) if strings match; 
Otherwise, f is returned false < ). 
Written in assembly. 

MATCH (al\nl\a2\n2 — tf\n3 ) for a match 

— ff\nl > for no match 
String match routine which starts a search 
at al for a count of nl characters. The 
string at a2 of length n2 is searched for 
as a substring of al,nl . If the string 
a2,n2 is found, a true flag (tf =1) is 
returned along with n3 = the number of bytes 
from al to the end of the string match. If 
string a2,n2 is not found, a false flag 
(ff = 0) is returned, and nl is on the stack. 

1LINE < — f) Uses MATCH to scan the current line for a 

match to the string in PADF . Returns flag 
f = true if found, false if not. Updates 
cursor position to end of matching string if 
found, or to end of line if no match. 

-MOVE ( al\nl — > MOVEs C/L characters from address al to 

line nl of the current edit screen. 

LINE (nl — al ) Returns the address al of the line nl of 

the current edit screen. 
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#LOCATE ( — nl\n2) Returns the cursor location in the 

current edit screen. n2 is the line number, 
and nl is the character position. 



>L# ( — 
#LEAD ( — 



#LAG 



ERR 



( 



SERR ( 
QIT ( 



(nl 



nl) Returns current line number as nl. 

al\nl) Returns the address of the cursor line 
as al and the position in the line as nl. 

al\n2) Returns address of the cursor in the 
current screen as al, and the number of 
characters from the current position to the 
line end as n2. 

) Issues message "NONE" for no string found. 

■ ) EDITOR'S INTERPRETER word. Scrolls the lower 
4 lines only, views the current window into 
the edit buffer, and accepts and interprets 
commands -from the operator. Is an infinite 
loop, terminated only by execution of QUIT . 

— ) ERRor handler for the EDITOR; prints the error 
indication "<-?" and the error message and 



QUIT < — ) 



then goes to QIT. 

This is EDITOR'S redefinition of the FORTH 
word QUIT . It is used to exit the EDITOR. 
It restores WARNING to 1, restores (ABORT) to 
point to ABORT, restores the condition of the 
display screen to its normal state, restores 
the vocabulary to FORTH, and then executes 
the FORTH QUIT . 



SCROL ( 



) SCROLls the lower 4 lines of the display, and 
sets the cursor in the lower left corner of 
the screen. 



RANGE 



V 



?31 



CUR 



(nl — n2) System word used to limit screen number nl 
to the range 1 to BMAX; limited number is n2. 

( > Calculates the window around the cursor and 
displays it on the screen. Window is the 11 
lines surrounding the cursor. Then the 
cursor position in the current line is shown. 

( ) Test line 31 of current screen for being 
empty. If so, does nothing. If not empty, 
prompt operator with notice that data will 
be lost; go to QIT if user responds with "Y" 
so that no loss will occur. 

(nl — ) Store nl into variable #R (the cursor 
position) after limiting it to a range within 
the current edit screen (i.e., nl is limited 
to <= nl <= 1023 . 
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The following is a copy of the glossary of the words from the 
standard fig-FORTH Installation Manual. The notation used is 
similar to the notation defined earlier for use throughout the 
rest of this manual. There are words in this glossary which are 
not contained in COLORFORTH; they are indicated with an asterisk 
after their names. These are discussed previously in the section 
WHAT IS MISSING? They relate to disk input and output functions. 
COLORFORTH contains other words which are described in the EDITOR 
section or in the next sections. 
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This glossary contains all of the word def- 
initions in Release 1 of fig-FORTH. The 
definitions are presented in the order of 
their ascll sort. 

The first lLne of each entry shows a symbolic 
description of the action of the proceedure on 
the parameter stack. The symbols indicate the 
order in which input parameters have been 

placed on the stack. Three dashes " " 

indicate the execution point; any parameters 
left on the stack are listed. In this 
notation, the top of the stack is to the 
r iph t . 



The capital letters on the right show defin- 
ition characteristics: 

C May only be used within a colon defin- 
ition. A digit indicates number 
of memory addresses used, if other 
than one . 
E Intended for execution only. 
LO Level Zero definition of FORTH-78 
LI Level One definition of FORTH-78 
P Has precedence bit set. Will execute 

even when compiling. 
U A user variable. 



The symbols Include: 



add r 
b 
c 
d 



f 
f f 



t f 



memory address 

8 bit byte (i.e. hi 8 bits lero) 

7 bit ascii character (hi 9 bits sero) 

32 bit signed double integer, 

most significant portion with sign 

on top of stack, 
boolean flag. 0-false, non-xero«t rue 
boolean false flag-0 
16 bit signed integer number 
16 bit unsigned integer 
boolean true flag-non-zero 



Unless otherwise noted, all references to 
numbers are for 16 bit'signed integers- On 
8 bit data bus computers, the high byte of 
a number is on top of the stack, with the sign 
in the leftmost bit. For 32 bit signed double 
numbers, the most significant part (with the 
sign) is on top . 

All arithemetic is implicitly 16 bit signed 
Integer math, with error and under-flow 
indication unspecified. 
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n addr 

Store 16 bits of n at addresa. 
Pronounced "store". 



LO 



(+LOOP) n C2 

The run-time proceedure compiled 
by +LOOP, which incremento the loop 
index by n and testa for loop comple- 
tion. See +LOOP. 



1CSP 



#> 



IS 



Save the stack position in CSP. Used 
as part of the compiler security. 



dl — d2 LO 

Generate from a double number dl, the 
next sscii character which is placed 
in an output string. Result d2 is 
the quotient after division by BASE, 
and is maintained for further pro- 
cessing. Used between <# and #>. 
See #S. 



d addr count LO 

Terminates numeric output conversion 
by dropping d, leaving the text 
address and character count suitable 
for TYPE. 



dl d2 LO 

Generates ascii text in the text out- 
put buffer, by the use of t, until 
a zero double number n2 results. 
Used between <# and #>. 



addr PpLO 

Used in the form: 
' nnnh 
Leaves the parameter field addreas 
of dictionary word nnnn. As a comp- 
iler directive, executes in a colon- 
definition to compile the address 
as a literal. If the word is not 
found after a search of CONTEXT and 
CURRENT, an appropriate error mess- 
age is given. Pronounced "tick". 



P.LO 
Used in the form: 

( cccc) 
Ignore a comment that will be 
delimited by a right parenthesis 
on the same line. May occur during 
execution or in a colon-definition. 
A blank after the leading parenthesis 
is required. 



(ABORT) 



(DO) 



(FIND) 



(LINE) 



(LOOP) 



Executes after an error when WARNING 
is -1. This word normally executes 
ABORT, but may be altered (with care) 
to a user's alternative proceedure. 



The run-time proceedure compiled by 
DO which moves the loop control para- 
meters to the return stack. See DO. 



addrl addr2 pfa b tf (ok) 

addrl addr2 ff (bad) 

Searches the dictionary starting at 
the name field address addr2, match- 
ing to the text at addrl. Returns 
parameter field address, length 
byte of name field and boolean true 
for a good match. If no match is 
found, only a boolean false is left. 



nl n2 addr count 

Convert the line number nl and the 
screen n2 to the disc buffer address 
containing the data. A count of 64 
indicates the full line text length. 



C2 
The run-time proceedure complied by 
LOOP which increments the loop Index 
and tests for loop completion- 
See LOOP. 



(NUMBER) 



dl addrl d2 addr2 

Convert the ascil text beginning at 
addrl+1 with regard to BASE. The new 
value is accumulated Into double 
number dl, being left as d2. Addr2 
Is the address of the first uncon- 
vertible digit. Used by NUMBER. 



nl n2 prod 

Leave the signed product of two 
signed numbers. 



LO 



(.") 



C+ 



(;CODE) 



The run-time proceedure, compiled by 
." which transmits the following 
in-line text to the selected output 
device. See ." 



The run-time proceedure, complied by 
;CODE, that rewrites the code field 
of the most recently defined word to 
point to the following machine code 
sequence. See ;CODE. 



*/ 



•/MOD 



nl n2 n3 n4 LO 

Leave the ratio n4 - nl*n2/n3 
where all are signed numbers. Ret- 
ention of an Intermediate 31 bit 
product permits greater accuracy than 
would be available with the sequence: 
nl n2 * n3 / 



nl n2 n3 n4 n5 LO 

Leave the quotient n5 and remainder 
n4 of the operation nl*n2/n3 
A 31 bit Intermediate product is 
used as for */. 
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y-* 



+1 



+ BUF 



n 1 n2 sun LO 

Leave the sum of nl+n2. 



n addr LO 

Add n Co che value at the address. 
Pronounced "plus-store". 



nl n2 n3 

Apply the sign of n2 to nl, which 
is left as n3. 



addl addr2 f 

Advance the disc buffer address addrl 
to the address of the next buffer 
addr2. Boolean f Is false when addr2 
is the buffer presently pointed to 
by variable PREV. 



-DUP nl — nl (if zero) 

nl — nl nl (non-zero) LO 
Reproduce nl only if it is non-zero. 
This is usually used to copy a value 
just before IF, to eliminate the need 
for an ELSE part to drop it. 



-FIND pfa b tf (found) 

ff (not found) 

Accepts the next text word (delimited 
by blanks) in the input strean to 
HERE, and searches the CONTEXT and 
then CURRENT vocabularies for a 
matching entry. If found, the 
dictionary entry's parameter field 
address, its length byte, and a 
boolean true is left. Otherwise, 
only a boolean false is left. 



+LOOP 



+ORIGIN 



nl (run) 

addr n2 (compile) P.C2.L0 

Used in a colon-definition in the 
fort: 

DO ... nl +LOOP 
At run-time, +LOOP selectively 
controls branching back to the cor- 
responding DO based on nl, the loop 
index and the loop limit. The signed 
increment nl Is added to the index 
and the total compared to the limit. 
The branch back to DO occurs until 
the new index is equal to or greater 
than the limit (nl>0), or until the 
new index is equal to or less than 
the limit (nl<0). Upon exiting the 
loop, the parameters are discarded 
and execution continues ahead. 



At compile time, +LOOP compiles 
the run-time word (+LOOP) and the 
branch offset computed from HERE to 
the address left on the stack by 
DO. n2 is used for compile time 
error checking. 



n addr 

Leave the memory address relative 
by n to the origin parameter area, 
n is the minimum address unit, either 
byte or word. This definition is used 
to access or modify the boot-up 
parameters at the origin area. 



n LO 

Store n into the next available dict- 
ionary memory cell, advancing the 
dictionary pointer. (comma) 



nl n2 — diff 
Leave the difference of 



nl-n2. 



LO 



P.LO 



Continue interpretation with the 
next disc screen, (pronounced 
next-screen) . 



-TRAILING addr nl . addr n2 

Adjusts the character count nl of 
text string beginning address to 
suppress the output of trailing 
blanks. i.e. the characters at 
addr+nl to addr+n2 are blanks. 



n LO 

Print a number from a signed 16 bit 
two's complement value, converted 
according to the numeric BASE. 
A trailing blanks follows. 
Pronounced "dot". 



P.LO 
Used in the form: 

." cccc" 
Compiles an in-line string cccc 
(delimited by the trailing ") with an 
execution proceedure to transmit the 
text to the selected output device. 
If executed outside a definition, ." 
will immediately print the text until 
the final ". The maximum number of 
characters may be an installation 
dependent value. See (.")• 



••LINE line scr 

Print on the terminal device, a line 
of text from the disc by its line and 
screen number. Trailing blanks arc 
s uppressed . 



.E nl n2 

Print the number nl right aligned in 
a field whose width is n2. No 
following blank is printed. 



nl n2 quot LO 

Leave the signed quotient of nl/n2. 



/MOD nl n2 rem quot LO 

Leave the remainder and signed 
quotient of nl/n2. The remainder hai 
the sign of the dividend. 
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0< 



These small numbers are used so often 
that is is attractive to define them 
by i'iic in the dictionary as const- 
ants. 



n — f L0 

Leave a true flag if the number is 
leas than zero (negative), otherwise 
leave a false flag. 



;s 



P.LO 
Stop interpretation of a screen. 
;S is also the run-time word compiled 
at the end of a colon-definition 
which returns execution to the 
calling proceedure. 



nl n2 f L0 

Leave a true flag if nl is less than 
n2; otherwise leave a false flag. 



OBRANCH 



1 + 



2+ 



n — f L0 

Leave a true flag is the number is 
equal to zero, otherwise leave a 
false flag. 



£ C2 

The run-time proceedure to condition- 
ally branch. If f is false (rero), 
the following in-line parameter is 
added to the interpretive pointer to 
branch ahead or back. Compiled by 
IF, UNTIL, and WHILE. 



<# 



L0 



nl n2 

Increment nl by 1. 



nl n2 

Leave nl incremented by 2. 



LI 



P.E.LO 



Used in the f 
definition: 

: cccc 
Creates a die 
cccc as equiv 
sequence of F 
' . . . * until 
The compiling 
the text inte 
STATE is non- 
are that the 
set to the CU 
that words wi 
set (P) are e 
being compile 



orm called a colon- 



tionary entry defining 
alent to the following 
orth word definitions 
the next ';' or ';C0DE'. 

process is done by 
rpreter as long as 
zero. Other details 
CONTEXT vocabulary is 
RRENT vocabulary and 
th the precedence bit 
xecuted rather than 
d. 



P.C.LO 
terminate a colon-definition and 
■top further compilation. Compiles 
the run-time ;S. 



<BUILDS 



>R 



Setup for pictured numeric output 
formatting using the words: 

<# # #S SIGN #> 
The conversion is done on a double 
number producing text at PAD. 



C.LO 
Used within a colon-definition: 
: cccc <BUILDS ... 

DOES> ... ; 
Each time cccc is executed, <BUILDS 
defines a new word with a high-level 
execution proceedure. Executing cccc 
in the form: 

cccc nnnn 
uses <BUILDS to create a dictionary 
entry for nnnn with a call to the 
D0ES> part for nnnn. Vhen nnnn is 
later executed, it has the address of 
its parameter area on the stack and 
executes the words after DOES> in 
cccc. <BUILDS and D0ES> allow run- 
time proceedures to written in high- 
level rather than in assembler code 
(as required by ;C0DE). 



nl n2 — f L0 

Leave a true flag if nl»n2; other- 
wise leave a false flag. 



nl n2 — f L0 

Leave a true flag if nl is greater 
than n2; otherwise a false flag. 



n .__ C.LO 

Remove a number from the computation 
■tack and place as the most access- 
able on the return stack. Use should 
be balanced with R> in the same 
definition. 



;C0DE P.C.LO 

Used in the form: 

: cccc .... ; CODE 

assembly mnemonics 
Stop compilation and terminate a new 
defining word cccc by compiling 
(;CODE). Set the CONTEXT vocabulary 
to ASSEMBER, assembling to machine 
code the following mnemonics. 

Vhen cccc later executes in the form: 

cccc nnnn 
the word nnnn will be created with 
its execution proceedure given by 
by the machine code following cccc. 
That ie, when nnnn ia executed, it 
does ao by jumping to the code after 
nnnn. An exiating defining word 
must exist in cccc prior to ;CODE 



TCOMP 



TCSP 



addr ~ L0 

Print the value contained at the 
address in free format according to 
the current base. 



Issue error message if not compiling. 



Issue error message if «tack position 
differs from value aaved in CSP. 
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TERROR f n — 

Issue an error message nuiber n, if 
the boolean flag la true* 



B/BDF 



This constant leaves the number of 
bytes par disc buffer, the byte count 
read from disc by BLOCK. 



7 EXEC 



Issue an error message If not exec- 
uting. 



7L0ADING 



Issue an error message if not loading 



B/SCR 



This constant leaves the number of 
blocks per editing screen. By con- 
vention, an editing screen is 1024 
bytes organized as 16 lines of 64 
characters each. 



7PAIRS nl n2 

Issue an error message if nl does not 
equal n2. The message Indicates that 
compiled conditionals do not match. 



BACK addr 

Calculate the backward branch offset 
from HERE to addr snd compile into 
the next' available dictionary memory 
a ddreas . 



7STACK 



Issue an error message is the stack 
is out of bounds. This definition 
msy be installation dapendent. 



BASE addr U.LO 

A user variable contaning the current 
number base used for input and out- 
put conversion. 



7TERMINAL 



ABORT 



ABS 



AGAIN 



ALLOT 



AMD 



f 

Perform a test of the terminal key- 
board for actuation of the break key. 
A true flag indicates actuation. 
This definition is installation 
dependent . 



addr n L0 

Leave the 16 bit contents of address. 



L0 
Clear the stacks and enter the exec- 
ution state. Return control to the 
operators terminal, printing a mess- 
age appropriate to the installation. 



BEGIN 



n u 

Leave the absolute value of n ai 



L0 



addr n (compiling) P.C2.L0 

Used in a colon-def inion in the form: 

BEGIN ... AGAIN 
At run-time, AGAIN forces execution 
to return to corresponding BEGIN. 
There is no effect on the stack. 
Execution csnnot leave this loop 
(unless R> DROP is executed one 
level below) . 

At compile time, AGAIN compiles 
BRANCH with an offset from HERE to 
addr. n is used for compile-time 
error checking. 



n L0 

Add the signed number to tha diction- 
ary pointer DP. May be used to 
reserve dictionary space or re-orlgin 
memory. n la with regard to computer 
address type (byte or word). 



nl n2 n2 L0 

Lesve the bitwise logical and of nl 
and n2 as n3. 



BL 



BLANKS 



BLK 



BLOCK 



addr n (compiling) P.LO 

Occurs in a colon-definition in form: 

BEGIN ... UNTIL 

BEGIN ... AGAIN 

BEGIN ... WHILE ... REPEAT 
At run-time, BEGIN marks the start 
of a sequence that may be repetitive- 
ly executed. It servea as a return 
point from the correapoinding UNTIL, 
AGAIN or REPEAT. When executing 
UNTIL, a return to BEGIN will occur 
If the top of the stack ia false; 
for AGAIN and REPEAT a return to 
BEGIN always occurs. 

At compile time BEGIN leaves its ret- 
urn address and n for compiler error 
checking . 



A constant that leavea the ascli 
value for "blank". 



addr count 

Fill an area of memory beglnlng at 
addr with- blanks. 



addr D.LO 

A user variable containing the block 
number being interpreted. If zero, 
input ia being taken from the term- 
inal Input buffer. 



n addr L0 

Leave the memory address of the block 
buffer containing block n. If the 
block is not already in memory, it is 
tranaferred from disc to which ever 
buffer wss least recently written. 
If the block occupying that buffer 
has been marked as updated, it is re- 
written to disc before block n is 
read into the buffer. Sea also 
BUFFIR, R/W UPDATE FLUSH 
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BLOCK-READ 

BLOCK-WRITE Theae are the preferred names 
for the installation dependent code 
to read and write one block to the 
disc • 



BRANCH 



BUFFER' 



C2.L0 
The run-tine proceedure to uncondit- 
ionally branch. An in-line offset 
is added to the interpretive pointer 
IP to branch ahead or back. BRANCH 
is compiled by ELSE, AGAIN, REPEAT. 



n addr 

Obtain the next memory buffer, ass- 
igning it to block n. If the con- 
tents of the buffer is Marked as up- 
dated, it is written to the disc 
The block is not read from the disc. 
The address left is the first cell 
within the buffer for data storage. 



COMPILE C2 

When the word containing COMPILE 
executes, the execution address of 
the word following COMPILE is copied 
(compiled) into the dictionary. 
This allows specific compilation 
situations to be handled in additon 
to simply compling an execution 
address (which the interpreter 
already does ) . 



CONSTANT 



CONTEXT 



n — LO 

A defining word used in the form: 

n CONSTANT cccc 
to create word cccc, with its para- 
meter field containing n. When cccc 
is later executed, it will push 
the value of n to the stack. 



addr U.LO 

A user variable containing a pointer 
to the vocabulary within which dict- 
ionary searches will first begin. 



C! 



C. 



ce 



CFA 



CMOVE 



COLD 



b addr 

Store 8 bits at address. On word 
addressing computers, further spec- 
ification Is necessary regarding byte 
addressing. 



b 

Store 8 bits of b into the next 
available dictionary byte, advancing 
the dictionary pointer. This is only 
available on byte addressing comp- 
uters, and should be used with 
caution on byte addressing mlni- 
c ompu ters • 



• ddr b 

Leave the 8 bit- contents of memory 
address. On word addressing comput- 
ers, further specification is needed 
regarding byte addressing. 



pfa cfa 

Convert the parameter field address 
of a definition to its code field 
address . 



from to count 
Move the specified quantity of bytes 
beginning at address from to address 
to. The contents of address from 
is moved first proceeding toward high 
memory. Further specification is 
necessary on word addressing comp- 
uters. 



The cold start proceedure to adjust 
the dictionary pointer to the min- 
imum standard and restart via ABORT. 
Hay be called from the terminal to 
remove application programs and 
rea tart . 



COUNT 



CR 



CREATE 



CSP 



D+ 



D+- 



addrl addr2 n LO 

Leave the byte address addr2 and byte 
count n of a message text beginning 
at address addrl. It is presumed 
that the first byte at addrl contains 
the text byte count and the actual 
text starts with the second byte. 
Typically COUNT 1b followed by TYPE. 



LO 



Transmit a carriage return and line 
feed to the selected output device. 



A defining word used in the form: 

CREATE cccc 
by such words as CODE and CONSTANT 
to create a dictionary header for 
a Forth definition. The code field 
contains the address of the words 
parameter field. The new word is 
created in the CURRENT vocablary. 



addr U 

A user variable temporarily storing 
the stack pointer position, for 
compilation error checking. 



dl d2 dsum 

Leave the double number sum of two 
double numbers. 



dl n d2 

Apply the sign of n to the double 
number dl, leaving it as d2. 



d LI 

Print a signed double number from a 
32 bit two's complement value. The 
high-order 16 bits are most access- 
able on the stack. Conversion is 
performed according to the current 
BASE. A blank follows. Pronounced 
D-dot. 
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-f~a 



D.R 



DABS 



DECIMAL 



d n 

Print a signed double nuibtr d right 
aligned In a field n characters wide. 



d ud 

Leave the absolute value ud of a 
double number- 



SO 



LO 



Set the numeric conversion BASE for 
decimal Input-output. 



DEFINITIONS LI 

Used in the form: 

cccc DEFINITIONS 
Set the CURRENT vocabulary to the 
CONTEXT vocabulary. In the example, 
executing vocabulary name cccc mad* 
it the CONTEXT vocabulary and exec- 
uting DEFINITIONS made both specify 
vocabulary cccc. 



DIGIT c nl n2 tf (ok) 

c nl ff (bad) 

Converts the aacil character c (using 
base nl) to its binary equivalent n2, 
accompanied by a true flag. If the 
conversion is invalid, leaves only 
a false flag. 



DLIST 



DLITERAL 



List the names of the dictionary 
entries in the CONTEXT vocabulary. 



d d (executing) 

d (compiling) P 

If compiling, compile a stack double 
number into a literal. Later execut- 
ion of the definition containing the 
literal will push It to the stack. If 
executing, the number will remain on 
the stack. 



DMINUS dl d2 

Convert dl to its double number two's 
complement . 



DOIS> 



DP 



DPI. 



nl n2 (execute) 

addr n (compile) P,C2',L0 

Occurs in a colon-definition in form: 



DO 
DO 



LOOP 
+LOOP 



At run time, DO begin* a sequence 
with repetitive execution controlled 
by a loop limit nl and an index with 
initial value n2. DO removes these 
from the stack. Upon reaching LOOP 
the index is incremented by one. 
Until the new index equals or exceeds 
the limit, execution loops back to 
Just after DO; otherwise the loop 
parameters are discarded and execut- 
ion continues ahead. Both nl and n2 
are determined at run-time and may be 
the result of other operations. 
Within a loop 'I' will copy the 



urrent value of the index to the 
a^ack. See I, LOOP, +LOOP, LEAVE. 

When compiling within the colon- 
definition, DO compiles (DO), leaves 
the following address addr and n for 
later error checking. 





LO 


A word which defines the run-time 


action within a high-level defining 


word. DOES> alters 


the code field 


and first parameter 


of the new word 


to execute the sequence of compiled 


word addresses foil 


owing DOES>. Used 


in combination with 


<BUILDS. When the 


DOES> part executes 


it begins with 


the address of the 


first parameter 


of the new word on 


the stack. This 


allows interpretati 


on using this 


area or its contents. Typical uaea 


include the Forth assembler, multi- 


diminslonal arrays, 


and compiler 


generation • 





U.L 



addr 

A user variable, the dictionary 
pointer, which contains the address 
of ths next free memory above the 
dictionary. The value may be read by 
HERE and altered by ALLOT. 



addr U.LO 

A user variable containing the number 
of digits to the right of the decimal 
on double integer input. It may also 
be used hold output column location 
of a decimal point, in user generated 
formating. The default value on 
single number input Is -1. 



DRO Installation dependent commands to 
DR1 select disc drives, by preseting 

OFFSET. The contents of OFFSET is 
added to the block number in BLOCK 
to allow for this selection. Offset 
is supreaaed for error text so that 
is may always originate from drive 0. 
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r- i 



DROP 



DUMP 



DOP 



ELSE 



EMIT 



n -« 
Drop the suiber from the stack. 



LO 



ENDIF 



addr n L0 

Print the contenta of n memory 
locations baginnlng at addr. Both 
addresses and contents are shown in 
the current numeric base. 



LO 



Duplicate the value on the stack. 



addrl nl addr2 n2 

(compiling) P.C2.L0 
Occurs within a colon-definition 
in the form: 

IF ... ELSE ... ENDIF 
At run-time, ELSE executes after tha 
true part following IF. ELSE forces 
execution to skip over the following 
false part and resumes execution 
after the ENDIF. It has no stack 
effect. 

At compile-time ELSE emplacea BRANCH 
reserving a branch .of f set , leaves 
the address addr2 and n2 for error 
testing. ELSE also resolves the 
pending forward branch from IF by 
calculating the offset from addrl to 
HERE and storing at addrl. 



c LO 

Transmit ascii character c to the 
■elected output device. OUT ia 
incremented for each character 
output. 



ERASE 



ERROR 



addr n (compile) P,C0,L0 

Occurs in a colon-definition in form: 

IF ... ENDIF 

IF ... ELSE ... ENDIF 
At run-time, ENDIF serves only as the 
destination of a forward branch from 
IF or ELSE. It marks the conclusion 
of the conditional structure. THEN 
is another name for ENDIF. Both 
names are aupported in fig-FORTH. See 
also IF and ELSE. 

At compile-time, ENDIF computes the 
forward branch offset from addr to 
HERE and stores it at addr. n is 
used for error tests. 



addr n 

Clear a region of memory to leto from 
addr over n addresses. 



line in blk 

Execute error notification and re- 
start of system. WARNING is first 
examined. If 1, the text of line n, 
relative to screen A of drive ia 
printed. This line number may be 
poaltive or negative, and beyond just 
screen 4. If WARNING-O, n is just 
printed as a message number (non disc 
installation). If WARNING is -1, 
the definition (ABORT) is executed, 
which executes the system ABORT. The 
user may cautiously modify this 
execution by altering (ABORT). 
fig-FORTH saves the contents of IN 
and BLK to assist in determining the 
location of the error. Final action 
ia execution of QUIT. 



EMPTT-BOFFERS * LO 

Mark all block-buffers as empty, not 
necessarily affecting the contents- 
Updated blocks are not written to the 
dlac. This is also an initialisation 
proceadure before first use of the 
dlac. 

ERXLOSE addrl c 

ddrl nl n2 n3 
Tha text acanning primitive used by 
WORD. From the taxt addraaa addrl 
and an aacii delimiting character c. 
Is determined the byte offaet to the 
first non-dalimiter character nl, 
tha offaet to the first delimiter 
after the text n2, and the offaet 
to tha first character not included. 
This proceedura will not proceaa past 
an aacii 'null', treating it aa an 
unconditional delimiter. 



EXECUTE addr — 

Execute the definition whoae code 
field addreaa is on the stack. The 
code field addreaa is also called 
tha compilation address. 



EXPECT 



addr count — *-0 

Tranafer charactera from the terminal 
to address, until a "return" or the 
count of charactera have been rec- 
eived. One or more nulla are added 
at tha end of the text. 



FEIICE "ddr l 

A uaar variable containing an 
addreaa below which FORGETting is 
trapped. To forget below thia point 
tha uaer muat alter the contenta of 
FERCE. 



IID P.C2.L0 

Thia ia an 'allaa' or duplicate 
definition for UNTIL. 



FILL 



addr quan b — 
Fill memory at the addreaa with the 
■pacified quantity of bytea b. 



FIRST 



A conatant that laavea tha addreaa 
of tha first (loweat) block buffer. 
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y-/ 



FLO 



FORGET 



FORTH 



HERE 



HEX 



HLD 



HOLD 



ID. 



addr 

A user variable for control of nuabar 
output field width. Presently un- 
used in flg-FORTH. 



E.LO 
Executed in the form: 

FORCET cccc 
Deletes definition named cccc froa 
the dictionary with all entrlea 
physically following it. In fig- 
FORTH, an error message will occur if 
the CURRENT and CONTEXT vocabularies 
are not currently the int. 



P.LI 
The name of the primary vocabulary. 
Execution makes FORTH the CONTEXT 
vocabulary. Until additional user 
vocabularies are defined, new user 
definitions become a part of FORTH. 
FORTH is immediate, so it will exec- 
ute during the creation of a colon- 
definition, to select this vocabulary 
at compile time. 



addr LO 

Leave the address of the next avail- 
able dictionary location. 



IF 



10 



Set the numeric conversion base to 
sixteen (hexadecimal). 



addr LO 

A user variable that holds the addr- 
ess of the latest character of text 
during numeric output conversion. 



c LO 

Used between <# and #> to Insert 
an ascii character Into a pictured 
numeric output string, 
e.g. 2E HOLD will place a 
deciaal point. 



n C,L0 

Uaed within a DO-LOOP to copy the 
loop index to the sttek. Other 
use is implementation dependant. 
See R. 



addr 

Print a definition's name froa Its 
naae field address. 



f — (run-time) 

addr n (compile) P.C2.L0 

Occura ia a colon-definition in form: 

IF (tp) ... ENDIF 

IF (tp) ... ELSE (fp) ... ENDIF 
At run-time, IF selects execution 
baaed on a boolean flag. If f is 
true (non-xero), execution continues 
ahead thru the true part. If f is 
false (xero), execution Bkips till 
Just after ELSE to execute the false 
part. After either part, execution 
resumes after ENDIF. ELSE and its 
falae part are optional.; if missing, 
false execution skips to Just after 
ENDIF. 



At coapile-time IF compiles OBRANCH 
and reserves space for an offset 
at addr. addr and n are used later 
for resolution of the offset and 
error testing. 



IMMEDIATE 



18 



IHDIX 



Mark the most resently made definit- 
ion so that when encountered at 
compile time, it will be executed 
rather than being compiled, i.e. the 
precedence bit in its header is set. 
This method allows definitions to 
handle unusual compiling situations, 
rather than build them into the 
fundamental compiler. The user may 
force compilation of an Immediate 
definition by preceeding it with 
(COMPILE]. 



addr LO 

A user variable containing the byte 
offset within the current input text 
buffer (terminal or disc) froa which 
the next text will be accepted. WORD 
uaes and moves the value of IH. 



froa to - — 
Print the first line of each screen 
over the range froa, to. This is 
used to view the comment lines of an 
area of text on disc screens. 



IITBURBT 



The outer text lnterp 
sequentially executes 
text froa the input s 
or disc) depending on 
word naae cannot be f 
a search of CONTEXT a 
it is converted to a 
to the currant basa. 
lng, an error message 
naae with a " 7" will 
Text input will be ta 
the convention for WO 
point is found as par 
a double number value 
The deciaal point has 
pose than to force th 
See NUMBER. 



reter which 

or coapilei 
treaa (terminal 

STATE. If the 
ound after 
nd then CURRENT 
number according 

That also fail- 
echoing the 

be given, 
ken according to 
RD. If a deciaal 
t of a number, 

will ba left. 

no other pur- 
is action. 
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y-// 



RET 



LATEST 



LEAVE 



LO LOOP 



LFA 



LIMIT 



Leave the ascii value of the next 
terminal key struck. 



addr 

Leave the name field addresa of the 
topmost word In the CORREHT vocabul- 
ary. 

C.LO 
Force termination of a DO-LOOP at the 
next opportunity by setting the loop 
Halt equal to the current value of 
the Index. The Index itaelf remalna 
unchanged, and execution prodeeda 
normally until LOOP or +LOOP ie 
encountered • 



pfa lfa 

Convert the parameter field addreaa 
of a dictionary definition to Ita 
link field address. 



A constant leaving the address Just 
above the highest memory available 
for a diac buffer. Usually this is 
the highest system memory. 



M* 



M/ 



•ddr n (compiling) P.C2.L0 

Occurs in a colon-definition in form: 

DO • • • LOOP 
At run-time. LOOP selectively cont- 
rols branching back to the correspon- 
ding DO based on the loop index and 
limit. The loop index is incremented 
by one and compared to the limit. The 
branch back to SO occurs until the 
index equals or exceeds the limit; 
at that time, the parameters are 
discarded and execution continues 
ahead. 

At compile-time, LOOP coapilea (LOOP) 
and uses addr to calculate an offset 
to DO. "n is used for error testing. 



nl n2 d 

A mixed magnitude math operation 
which leaves the double number signed 
product of two signed number. 



d nl n2 n3 

A mixed magnitude math operator which 
leaves the signed remainder n2 and 
signed quotient n3, from a double 
number dividend and divisor nl. The 
remainder takes ita sign from the 
dividend. 



LIST 



LO M/MOD 



Diaplay the aacii text of screen n 
on the selected output device. SCR 
contains the screen number during and 
after this process. 



udl u2 u3 ud4 

An unsigned mixed magnitude math 
operation which leaves a double 
quotient ud4 and remainder u3, from 
a double dividend udl and single 
divisor u2. 



LIT 



LITERAL 



LOAD 



„ C2.L0 

Within a colon-definition, LIT la 
automatically compiled before each 
16 bit literal number encountered in 
input text. Later execution of LIT 
causes the contents of the next 
dictionary address to be pushed to 
the stack. 



n (compiling) P.C2.L0 

If compiling, then compile the stack 
value n as a 16 bit literal. This 
definition la immediate so that it 
will execute during a colon defin- 
ition. The Intended use is: 

: xxx [ calculate ] LITERAL ; 
Compilation is suspended for the 
compile time calculation of a value. 
Compilation is reusumed and LITERAL 
compiles this value. 



n — - 

Begin interpretation of screen n. 
Loading will terminate at the end of 
the screen or at ;S . See ;S and — > 



LO 



MAX 



MESSAGE 



nl n2 max LO 

Leave the greater of two numbers. 



Print on the aelected output device 
the text of line n relative to screen 
4 of drive 0. n may be positive or 
negative. MESSAGE may be used to 
print incidental text auch as report 
headers. If WARRING is xero, the 
message will simply be printed as 
a number (diac un-available) . 



HIH nl n2 min LO 

Leave the smaller of two numbers. 



MI BUS 



MOD 



nl n2 

Leave the two's complement of a 
number. 



LO 



nl n2 mod LO 

Leave the remainder of nl/n2, with 
the same algn as nl. 



MOH 



Exit to the system monitor, leaving 
a re-entry to Forth, if poaslble. 
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V-/Z. 



NEXT 



MOVE addrl addr2 n PAD addr LO 

Move the contents of n memory cell* Leave the addreaa of the text output 

(16 bit contents) beginning at addrl buffer, which ia a fixed offset abova 

into n cells beginning at addr2. HERE. 

The contents of addrl is moved firat. 

This definition ia appropriate on 

on word addressing computers. PFA nfa pfa 

Convert the name field address of 
a compiled definition to lta para- 

_, . meter field address. 

This is the inner interpreter that 

uses the interpretive pointer IP to 

execute compiled Forth definitions. POP 

It is not directly executed but is Th « co<Je 8equenc . to relnove , 9tack 

the return point for all code pro- value and return to NEXT. POP is 

ceedures. It acts by fetching the not directly executable, but la a 

address pointed by IP, storing thia Forth re-entry point after machine 

value in register W. It then jumpa code. 

to the address pointed to by the 

address pointed to by W. W points to. j. 

the code field of a definition which PREV addr 

contains the address of the code A variable containing the address of 

which executes for that definition. the disc buffer most recently ref- 

This usage of indirect threaded code erenced. The UPDATE command marks 

is a major contributor to the power, this buffer to be later written to 

portability, and extensibility of disc. 

Forth. Locations of IP and W are 
computer specific. 



PUSH 



NFA pfa nfa 



This code sequence pushes machine 
registers to the computation stack 



Convert the parameter field address and returns to NEXT. It ia not 

of a definition to its name field. directly executable, but is a Forth 

re-entry point after machine code. 

NUMBER addr d 

Convert a character string left at POT 

addr with a preceeding count, to This code sequence stores machine 
a signed double number, using the register contents over the topmost 
current numeric base. If a decimal computation stack value and returns 
point is encountered in the text, its to NEXT. It is not directly exec- 
position will be given in DPL. but utable, but is a Forth re-entry point 
no other effect occurs. If numeric after machine code. 



conversion is not possible, an error 
message will be given. 



QUERY 



Input 80 characters of text (or until 
OFFSET addr U a "return") from the operators 

A user variable which may contain terminal. Text Is positioned at the 

a block offset to disc drives. The address contained in TIB with IS 

contents of OFFSET is added to the set to zero. 

stack number by BLOCK. Messages 

by MESSAGE are independent of OFFSET. 

See BLOCK, DRO , DR1, MESSAGE. QUIT LI 

Clear the return stack, stop compil- 
ation, and return control to the 
0R nl n2 — or LO operators terminal. Ho message 

Leave the bit-wise logical or of two is given. 

1 6 bit values. 

R n 

0DT addr U Copy the top of the return stack to 

A user variable that contains a value the computation stack. 

Incremented by EMIT. The user may 

alter and examine OUT to control 

display formating. R# addr 

A user variable which may contain 
the location of an editing cursor, 
0VER nl n2 nl n2 nl LO or other file related function. 

Copy the second stack value, placing 

it as the new top. 
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SMUDGE 



R/W 



addr blk f 

The fig-FORTH standard disc read- 
write linkage. addr specifies the 
source or destination block buffer, 
blk is the sequential number of 
the referenced block; and f is a 
flag for f-0 write and f-1 read. 
R/W determines the location on mass 
storage, performs the read-write and 
performs any error checking. 



SP! 



Used during word definition to toggle 
the "smudge bit" in a definitions' 
name field. This prevents an un- 
completed definition from being found 
during dictionary searches, until 
compiling is completed without error. 

A computer dependent proceedure to 
initialise the stack pointer from 
SO. 



R> 



RO 



REPEAT 



ROT 



RP ! 



S->D 



— » L ° a 

Remove the top value from the return SP@ 

stack and leave it on the computation 
stack. See >R and R. 



addr u 

A user variable containing the 
initial location of the return stack. 
Pronounced R-zero. See RP ! 



addr n (compiling) P,C2 

Used within a colon-definition in the 
f orm : 

BEGIN ... WHILE ... REPEAT 
At run-time, REPEAT forces an 
unconditional branch back to Just 
after the correspoinding BEGIN. 

At compile-time, REPEAT compiles 
BRANCH and the offset from HERE to 
addr. n is used for error testing. 



nl n2 n3 n2 n3 nl LO 

Rotate the top three values on the 
stack, bringing the third to the top. 



A computer dependent proceedure to 
initialize the return stack pointer 
from user variable RO . 



n d 

Sign extend a single number to form 
a double number. 



SPACE 



SPACES 



STATE 



SWAP 



TASK 



addr 

A computer dependent proceedure to 
return the address of the stack 
position to the top of the stack, 
as it was before SP@ was executed, 
(e.g. 1 2 SP@ @ . would 

type 2 2 1) 



LO 
Transmit an ascii blank to the output 
device. 



n — LO 

Transmit n ascii blanks to the output 
device. 



addr LO.U 

A user variable containg the compil- 
ation state. A non-zero value 
Indicates compilation. The value 
itself may be implementation depend- 
ent. 



nl n2 n2 nl LO 

Exchange the top two values on the 
s tack . 



A no-operation word which can mark 
the boundary between applications. 
By forgetting TASK and re-compiling, 
an application can be discarded in 
its entirety. 



SO 



SCR 



SIGN 



addr 

A user variable that contains the 
initial value for the stack pointer. 
Pronounced S-zero. See SPI 



addr u 

A user variable containing the screen 
number most recently reference by 



U THEN 



P.CO.LO 



An alias for ENDIF. 



LIST. 



n d — d LO 

Stores an ascii "-" sign just before 
a converted numeric output string 
in the text output buffer when n is 
negative. n is discarded, but double 
number d is maintained. Must be 
used between <# and #>• 



TIB 



TOGGLE 



TRAVERSE 



addr U 

A user variable containing the addr- 
ess of the terminal input buffer. 



addr b 

Complement the contents of addr by 
the bit pattern b. 



addrl n addr2 

Move across the name field of a 
fig-FORTH variable length name field, 
addrl is the address of either the 
length byte or the last letter. 
If n-1, the motion is toward hi mem- 
ory; if n--l, the motion is toward 
low memory. The addr2 resulting is 
address of the other end of the name. 
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TRIAD scr 

Display on the selected output device 
the three screens which include that 
numbered scr, begining with a screen 
evenly divisible by three. Output 
is suitable for source text records, 
and includes a reference line at the 
bottom taken from line 15 of screen*. 



VARIABLE 



*-/• 



E.LU 
A defining word used in the formi 

n VARIABLE cccc 
When VARIABLE is executed, it creates 
the definition cccc with its para- 
meter field initialized to n. When 
cccc is later executed, the address 
of its parameter field (containing n) 
is left on the stack, so that a fetch 
or store may access this location. 



TYPE addr count LO 

Transmit count characters from addr 
to the selected output device. 



U* ul u2 ud 

Leave the unsigned double number 
product of two unsigned numbers. 



VOC-LINK addr rj 

A user variable containing the addr- 
ess of a field In the definition of 
the most recently created vocabulary. 
All vocabulary names are linked by 
these fields to allow control for 
FORGETting thru multiple vocabularys. 



U/ 



UNTIL 



UPDATE 1 



USE 



ud ul u2 u3 

Leave the unsigned remainder u2 and 
unsigned quotient u3 from the unsign- 
ed double dividend ud and unsigned 
divisor ul . 



f (run-time) 

addr n (compile) P.C2.L0 

Occurs within a colon-definition in 
the form: 

BEGIN ... UNTIL 
At run-time, UNTIL controls the cond- 
itional branch back to the corres- 
ponding BEGIN. If f is false, exec- 
ution returns to just after BEGIN; 
if true, execution continues ahead. 

At compile-time, UNTIL compiles 
(OBRANCH) and an offset from HERE 
to addr. n is used for error tests. 



LO 
Marks the most recently referenced 
block (pointed to by PREV) as 
altered. The block will subsequently 
be transferred automatically to disc 
should its buffer be required for 
storage of a different block. 



addr 

A variable containing the address of 
the block buffer to use next, as the 
least recently written. 



VOCABULARY 



E,L 



VLIST 



WARNING 



A defining word used in the form: 

VOCABULARY cccc 
to create a vocabulary definition 
cccc. Subsequent use of cccc will 
make it the CONTEXT vocabulary which 
is searched first by INTERPRET. The 
sequence "cccc DEFINITIONS" will 
also make cccc the CURRENT vocabulary 
into which new definitions are 
placed. 

In fig-FORTH, cccc will be so chained 
as to include all definitions of the 
vocabulary in which cccc is itself 
defined. All vocabularys ulitmately 
chain to Forth. By convention, 
vocabulary names are to be declared 
IMMEDIATE. See VOC-LINK. 



List the names of the definitions in 
the context vocabulary. "Break" will 
terminate the listing. 



addr u 

A user variable containing a value 
controlling messages. If « 1 
disc is present, and screen A of 
drive is the base location for 
messages. If » 0, no disc is present 
and messages will be presented by 
number. If - -1, execute (ABORT) for 
a user specified proceedure. 
See MESSAGE, ERROR. 



USER n LO WHILE 

A defining word used In the form: 

n USER cccc 
which creates a user variable cccc. 
The parameter field of cccc contains 
n as a fixed offset relative to 
the user pointer register UP for 
this user variable. When cccc is 
later executed, it places the sum of 
its offset and the user area base 
address on the stack as the storage 
address of that particular variable. 



f (run-time) 

adl nl adl nl ad2 n2 P,C2 

Occurs in a colon-definition in the 
form: 

BEGIN ... WHILE (tp) ... REPEAT 
At run-time, WHILE selects condition- 
al execution based on boolean flag f. 
If f Is true (non-zero) , WHILE cont- 
intues execution of the true part 
thru to REPEAT, which then branches 
back to BEGIN. If f is false (zero), 
execution skips to just after REPEAT, 
exiting the structure. 



At compile time, WHILE emplaces 
(OBRANCH) and leaves ad2 of the res- 
erved offset. The stack values will 
be resolved by REPEAT. 
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WIDTH « ddr U 

In fig-FORTH, a user variable cont- 
aining the maximum number of letters 
saved in the compilation of a 
definitions' name. It must be 1 thru 
31, with a default value of 31. The 
name character count and its natural 
characters are saved, up to the 
value in WIDTH. The value may be 
changed at any time within the above 
limi ts. 



WORD c — L0 

Read the next text characters from 
the Input stream being interpreted, 
until a delimiter c is found, storing 
the packed character string beglnlng 
at the dictionary buffer HERE. WORD 
leaves the character count in the 
first byte, the characters, and ends 
with two or more blanks. Leading 
occurances of-c are ignored. If BLK 
is zero, text is taken from the 
terminal input buffer, otherwise from 
the disc block stored in BLK. 
See BLK, IN. 




XOR 



nl n2 xor LI 

Leave the bitwise logical excluslve- 
or of two values. 



P,L1 
Used in a colon-definition In form: 

: xxx [ words ] more ; 
Suspend compilation. The words after 
[ are executed, not compiled. This 
allows calculation or compilation 
exceptions before resuming compil- 
ation with ]. See LITERAL, J. 



^COMPILE] P > C 

Used in a colon-definition in form: 

: xxx [COMPILE] PORTH ; 
[COMPILE] will force the compilation 
of an immediate def lnlnitlon, 
that would otherwise execute 
during compilation. The above 
example will aelect the PORTH 
vocabulary when xxx executes, rather 
than at compile time. 



LI 
Resume compilation, to the completion 
of a colon-definition. See [. 
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5.0 OVERLAYS 



5. 1 WHAT IS AN OVERLAY? 



In COLORFORTH an overlay is a group o-f words 
compiled into memory in a -form which can be 
storage, in this case the cassette system. 



which have been 
saved out to mass 



5.2 WHY DO I NEED OVERLAYS? 

As you become more familiar with COLORFORTH, you will write 
longer programs. For code more than a -few screens long, the time 
to read and load the screens becomes noticably long. One can 
easily have programs with source code o-f dozens o-f screens, and 
these would take several minutes to read and load. What you gain 
by the use o-f overlays is the ability to save already compiled 
programs out on tape and the ability to load them back in without 
recompilation. Since a typical FORTH program is several times 
smaller in its compiled -form, the compiled form occupies less 
tape which means it will take less time to read it in -from the 
cassette. As an example, a 7k compiled overlay can be loaded in 
under two minutes while the source code -for that would be over 
40k bytes o-f text and would take over 14 minutes to read and 
load. QUITE A SAVINGS (of course you have to do it once!). 



5.3 WHEN DO I MAKE AN OVERLAY? 

It makes no sense to convert a program of 1 or 2 screens to 
overlay form. The time saved will not be significant, and for a 
1 screen program no time will be saved because the compiled code 
is saved in units of Ik anyway. 

You should make overlays only after you have a program fully 
debugged! Once compiled, you won't have the source to change. 
ALSO, BE SMART AND BE SURE YOU SAVE THE SOURCE CODE TO CHANGE 
LATER IF YOU NEED TO! ! 

If your program is over about h screens and it is working the way 
you want, then it is probably time to make an overlay. 

5. 4 HOW DO I MAKE AND SAVE AN OVERLAY? 

Making an overlay is very easy. After you have written your 
program and have saved the source code on cassette in such a form 
that you can CLOADS it, you then type the following: 

COLD < ENTER > 

This will empty memory. 
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Now, you may want your program to run with a di-f ferent number o-f 
screen bu-ffers than 8, 50 you may optionally select a different 
number o-f buffers by performing: 



n 



#BLOCKS 



< ENTER > 



where n is the number of buffers you wish (minimum is 
you can start the overlay process by typing: 



1) 



Now 



OVSTART 



nl CLOADS < ENTRY: 



where nl is the number of screens of source on the cassette. If 

you have previously gotten all the bugs out, the program should 

load ok. When the loading stops (you get the OK), terminate the 
overlay by typing 

OVEND < ENTRY > 

Actually, you may add to the program by typing it in before you 
type the OVEND. The overlay is now complete in memory, and so it 
is ready to be saved on cassette <A DIFFERENT CASSETTE!). 
Prepare a new tape for recording, and with the RECORD switch on 
type 



OVSAVE 



: ENTRY > 



This will save the compiled code out on tape, 
can save it several times just to be safe. 



If you wish you 



**** NOTE **** 

In our experience, it is not wise to try to store more than one 
set of text or one set of compiled overlay code on a single 
cassette tape. While it may seem wasteful of tape to put only 
one thing on a tape, it is EXTREMELY easy to mistakenly write 
over a portion of the tape that you did not wish to write on when 
you try to use a tape for more than one thing. For sure, you may 
use both sides of a tape, and you may place more than one copy of 
something on a tape as assurance that it is recorded properly at 
least once. YOU WILL make mistakes! So be liberal in your use 
of seperate tapes in order to minimize the loss of code when you 
do make them. 



5 HOW DO I LOAD AN OVERLAY BACK IN? 



Place the tape with the overlay into the cassette machine, 
it, and place it in the PLAYBACK mode. Then type 



rewind 



COLD 



OVLOAD < enter: 



COLD clears out memory, and OVLOAD reads the cassette. #BLOCKS 
will be reset to the value it had when the recording was made. 
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5.6 OVERLAY FACILITY GLOSSARY: 



OVSTART < — ) Signals start of an overlay. It creates an 

array o-f numbers in the beginning o-f memory 



Some 



OVEND ( 



OVLINK ( — ) 



to hold the parameters -for the overlay, 
of the parameters held arei 

BMAX DP LATEST 

link to last name field in kernel 

size of overlay. 



Completes the overlay setup in memory by 
filling in the incomplete array elements at 
the beginning of the overlay area. 

Not used by the user in a direct manner. It 
is used by the system word OVLOAD to relink 
the dictionary after a new ovelay has been 
read in. 



OVSAVE < — ) 



Save to cassette tape as many BLOCKS as 
reguired to hold the overlay currently in 
memory between OVSTART and OVEND. The tape 
recorder must have been prepared to record. 
OVSAVE uses BLOCK #1 while saving, so its 
contents will be lost. 



OVLOAD ( 



>0V 



( — ) 



Reads from cassette tape a full overlay and 
links it into memory. It sets #BLOCKS to the 
value it held when the overlay was created. 
It is suggested that COLD be executed before 
any overlay is loaded. An overlay may be of 
any length which will fit into memory. 



Checks 



the first 



definition in memory 
following LIMIT to verify that an overlay is 
indeed present. An error message is generated 
if not. 



Hnnvrinht- 1 ^R 1 



.1 



1 mmar 



T -. 1 l~ _ 4. 
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6.0 SOUND WAVES 

For those of you interested in creating complex sounds with the 
COLOR COMPUTER, COLORFORTH has two words called TONE and WAVE. 
The COLOR COMPUTER has within it a Digi tal -to-Anal og Converter 
(DAC) with 6 bit resolution (64 values). The output of the DAC 
is connected to the sound input to the television display, so any 
output -from it may be heard there. To try an example, turn up 
the volume so you can hear the clicking of the keys very clearly. 
Now type: 

DECIMAL 49152 12 4000 WAVE <ENTER> 

The noise you hear is created by sending the first 4000 bytes of 
the COLORFORTH rom starting at memory location 49152 and holding 
each value with a duration value of 12 (which corresponds to a 
transfer rate of about 8 KHz). 

The first number input to WAVE (49152 in this example) is the 
starting address of the table of values to send to the DAC, the 
second number is the duration of each hold value for the voltage 
(about 10 microseconds times the second number), and the last 
number is the number of bytes to send. The total duration of the 
sound is 10 microseconds times the product of the second and 
third numbers. 

There is a table of values for a sine wave in the BASIC rom from 
address *A85C to *A87F. If this array is sent to WAVE, it will 
produce a single cycle of a sine wave. If one were to do that 
repeatedly, then a pure tone would be produced, and in fact TONE 
is a routine to do just that in an easier fashion. One could use 
that table as the basis of building up longer tables in memory. 
Some RADIO SHACK ROM games include VOICE! sent from a table in 
memory using this or a similar technique. It should be possible 
to receive voice through the JOYSTICK port by using a custom 
assembly language routine to build a voice Array in memory, and 
then it may be sent back out by use of WAVE. HOW ABOUT ALL YOU 
INDUSTRIOUS EXPERIMENTORS OUT THERE! 

6.1 SOUND SYSTEM GLOSSARY: 

WAVE (al\n2\n3 — ) Custom wave form generation word. 

Used with a user prepared table of values, 
al is the start of a table of byte values, n2 
is the time duration used, and n3 is the 
number of bytes in the table. 

TONE (nl\n2 — ) Generates a tone (through the television 

speaker) of frequency nl and duration n2. 
This word uses the BASIC ROM routines. The 
values of nl and n2 are the same as would be 
used in BASIC. TONE uses the system 
interrupts for timing, so it cannot be used 
with the time word 7TIME. 
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7.U GRAPHICS 



7. 1 GRAPHICS CONTROL 

The COLOR COMPUTER has many interesting graphics modes. There 
are several words in COLORFORTH to allow you to control and 
select these modes. See the glossary section on the GRAPHICS 
words for a list and definition of their functions. 

The following is a list of the graphics modes available on the 
color computer and the values to go into the VCR and VDG 
registers to get them. For a detailed discussion, you should 
consult the manufacturer's specification sheet or see one of the 
articles published in various magazines on the details of the 
COLOR COMPUTER, e.g., the MARCH 81 BYTE magazine article. 



MODE 



Internal Alphanumeric 



Semi graphics 




6 


Full Graphics 


1 


color 




1 


B/W 




•■> 


color 






B/W 




3 


color 






B/W 




6 


color 




6 


B/W 



VCR! 


VDG! 


( hex ) 







O 


2 





10 


1 


12 


1 


14 




16 


3 


18 


4 


1A 


5 


1C 


6 


IE 


6 



RESOLUTION 



64 


x 


32 


64 


X 


48 


64 


X 


64 


128 


X 


64 


128 


X 


64 


128 


X 


96 


128 


X 


96 


128 


X 


192 


128 


X 


192 


256 


X 


192 



Other modes are possible, but the above are the basic ones. The 
c ^es^ im£lj^ejated-Hrn^ ih P Full Pr_aj2h_u^s_JgL,,__3_ . and 6 

c olor mode s. (The numbers 1, 2, 3, and 6 refer to the number 
of kilobytes of memory reguired for the display screen.) 



To use the Full 

a sslqn~1aTr ~~aTT'ay 

o 



Grap hics modes effectively, you will h ave to 

:o be the graphics screen and plo t___al 1 

raphics into that "array. Here i s a simple way to do 



that on 16k or larger machines: 



DECIMAL 



5 BLOCK 512 / 1+ 



GSCR 



< ENTER > 



This sets GSCR to point to an area which is 3k in size located 
between buffers 5 and 8, and which is forced to start on a 512 
byte page boundry. To determine the page value for use in PG ! , 
do the following: 

GSCR 3 512 / CONSTANT NEW-PAGE 

Now you may select the Full graphics 3 color mode and move the 
display to the new display area by executing the word VIEW 
defined by: 

: VIEW G3C NEW-PAGE PG ! ; 

This will display the chosen graphics page, and if allowed to 
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continue, the system will immediately issue the OK back on the 
normal text display area. If you have just COLOR BASIC, the 
graphics screen will remain being displayed; however, i -F you have 
the EXTENDED BASIC ROM, then output to the normal text page 
causes the display to switch back there. Conseguently, in the 
latter case, you must prevent the OK while you wish to view the 
graphics; this is conveniently done by placing KEY in the 
instructions where you wi sh the display to be held- Then, when 
you have finished observing the graphics, you can press any KEY 
to continue (it is good practice to DROP the character to keep 
the stack clean). So, to hold the displayed graphics screen, 
type 

VIEW KEY DROP 

Now, the graphics page will be displayed until you press any key. 
I-f you do not have the EXTENDED BASIC ROM, then you cause the 
display to switch back to the normal page with VNORM . A 
completely general form which will behave the same whether you 
have the EXTENDED BASIC ROM or not is 

VIEW KEY DROP VNORM 

This will not be useful until you set up code to actually place 
something into the graphics page. To do that you must select a 
color and use the word SET to plot individual points. Rather 
than send the color for every point plotted, we set the color 
into the FORTH variable COLOR and then we must send only the x 
and y coordinates to SET. E.g., to use the RED color you would 
say: 

RED COLOR ! 

First you will want to clear the graphics screen. In the case of 
using the G3C mode which uses 3k of memory ( HEX OCOO bytes), 
this would be done with this word CLR: 

HEX : CLR GSCR 3 OCOO ERASE ; 

Erasing the screen is equivalent to setting it to green. 

As an example, lets now define a word which will draw a diagonal 
line and then look at it. Define this word DIAG 

HEX : DIAG CLR VIEW 40 
DO I I SET 
LOOP KEY DROP VNORM ; 

Now type the word DIAG and you should see a line drawn from the 
upper left (coordinate O ) to the lower right (coordiate hex 
40 40 ). The display will stay until you press any key. The 
only function of the word KEY in the DIAG definition is to hold 
the display until you want to continue (and then the value of the 
key is DROPped) . As soon as DIAG is finished, the system will 
send you OK and to do that it returns you to the normal screen. 
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T Hhe CO LORFORT word SET will support only the color 2, 3^___gr__6 

iTng which changes is the vertical resolution 
oT 



mqxlies. 




and the 



i-eorrfred] 



To create - another mode 



co mmand. 



create G&B -for 5k ETack ana wh irte>-":"" 



GMODE command as f_gXl5ws~terg^7 — to 



HEX IE 06 GMODE G&B 



: ENTER > 



This command qiyjR.s the hi nttest — possi ble reso lution mode, but you 
will have to write your own version o-f SET to place thre-~T±art'S — rn . ^ 



For the advanced programmer who wants to play with such 
techniques, the sou rce code -for the SET ^command is i Q-_ screen 2 



_Lt_ 



of si _the_50UEce_cc!dai. 

into a____CQDE deJLi-ra_i_ti-on 



i_s — ix» UtEX_CDde_which was„ 

_Lt were 



Jiand assembled 



~I~f_ 



written 



in full FORTH 
ASSJEjlBlJ£~l-afi gu^g e— t^n-_^ 
cas sette) it _tetOJi1d — be: 



HEX 



CODE 



CCLR 



CCLR 



SET 










D PULU, 


20 


# LDA, 


MUL, 


2 STD, 


D PULU, 


COLOR LDA, 


LSRB, 




IF, 




LSRA, 


LSRA, 




ENDIF, 




LSRB, 






IF, 




LSRA, 
LSRA, 


LSRA, 
LSRA, 




ENDIF, 




4 STA, 


CLRA, 




2 ADDD, 


GSCR 


ADDD, 


D X TRF, 




X LDA, 


4 


ORA, 


X STA, 


NEXT C; 
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7.2 GRAPHICS SYSTEM GLOSSARY: 



PG! 



VDG! 



VCR! 



VNORM 



(nl 



— ) 



Sets the 512 byte page number nl into the 
system 6883 chip as the current video display 
page. CAUTION: The text output <e.g., via 
EMIT or TYPE) still goes to the same memory 



page as before, 
graphics. 



PG! 



is used to perform 



(nl — > Sets the graphics mode in the 6883 chip to 
the value nl. Only the lower three bits o-F 
nl are used. See the chip's specification 
sheet or March 81 BYTE paper for programming 
this mode. 

(nl — ) Sets the graphics mode of the 6847 VDG chip 
to the value nl. Only the lower 5 bits of nl 
are used for this function. See the March 
SI Byte article on the color computer for 
information on this mode selection. 

( — ) This restores the video display to the normal 
video mode. It is equivalent to 
2 PG ! VDG ! VCR ! 



COLOR 



— al) A system variable used by SET; contains the 
code for the COLOR to be plotted. 



GREEN 

YELLOW 

BLUE 

RED ( 



— nl) Constants which place on the stack the value 
nl which is to be stored into color. E.g., 

RED COLOR ! 
will set the COLOR to be plotted to be RED. 



GSCR 



( — al) 



GMODE (nl\n2 



G2C 

G3C 
G6C 



( ) 



A graphics system variable which holds the 
address of the first byte in the GRAPHICS 
SCREEN. This variable must be set before the 
SET command is executed. See the section on 
GRAPHICS CONTROL for further discussion. 

) A Defining word which is used to create 
these graphics mode control words: 

G2C G3C G6C 
Users would normally not use GMODE unless 
they are advanced graphics programmers making 
use of the modes not otherwise supported by 
COLORFORTH . 

Sets the GRAPHICS 2K BYTE COLOR mode. Sets 
the VDG and VCR to give a display of 128 x 64. 



( — ) Sets GRAPHICS mode to 128 x 96. 
( — ) Sets GRAPHICS mode to 128 x 192. 
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SET (x\y — ) Set a point in the GRAPHICS SCREEN which 

begins at the location in GSCR. MUST! ! have 
previously set GSCR in order -for this word to 
work. The color o-f the point set is the 
color held in the variable COLOR, which must 
have been set also. The SET word supports 
the three previously specified graphics 
modes. I-f you de-fine a new mode by using 
GMODE, the action o-f SET is undefined! 

)d £^Ul j ^ t~to ^- M^ 



3o 3d 



c # 



%T S^x: /wq 5 ,-q jt>i?t> 



1 ?0 J yj~ fi^X ^- -^ ^° 
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8.0 DEBUGGING AIDS 

8.1 FORTH DECOMPILER 

A very useful utility included in COLORFORTH is a decompiler. It 
allows you to take apart running FORTH code, including COLORFORTH 
itsel-f! 0-f course, you have a listing o-f the source code for the 
whole system, but you will -find the decompiler useful, especially 
when you forget the definition of some word. 

Before explaining what the decompiler does, try it on your 
computer. Type in 

SOURCE ERASE < ENTER > 

You should see the computer type out 

: ERASE FILL ;S 

That is the source code definition of ERASE. It fills a section 
of code with zeros. You will observe one thing which comprises 
one of the inner secrets of how FORTH operates — the ; at the 
end of a colon definition inserts the code for ;S into the 
dictionary. 

Try 

SOURCE HEX < ENTER > 

You will get 

: HEX LIT 16 BASE ! ; S 

In this case the definition has two bytes ( and 16 ) which it 
does not recognize as a legitimate FORTH word, so it prints them 
out individually. Together they make up the 2 byte literal 
constant 16. The definition for HEX is 

: HEX 16 BASE ! ; 

The FORTH compiler recognizes that 16 is not a FORTH word, and it 
inserts the word LIT together with the number 16 into the 

dictionary. 

At this point you might wonder why O appeared in the SOURCE of 
ERASE; why wasn't it LIT O ? The answer is that is a 
FORTH WORD ! 

The decompiler looks up each part of the word being decompiled 
and tries to locate that part in the dictionary. When it finds 
it, the name is printed using .NAME . You can control whether 
or not the addresses themselves are printed by using 

AON to turn on address printing 

or AOFF to turn off address printing. 
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Try AON SOURCE HEX < ENTRY >. 

The word SOURCE will trace only high level FORTH words, the ones 
made with : de-f ini tions. I-f you trace a CODE word like + you 

will just get a list of numbers it is a very slow way to get 

a memory dump! Just hold down any key to stop it. 

The word ASOURCE is used by SOURCE. To use ASOURCE, you give it 
a parameter -field address to start at E.g. 

HEX CB16 ASOURCE < ENTER > 

will also give you a trace of HEX, because CB16 is the parameter 
field address of HEX. 

The seguence SOURCE XXX is exactly equivalent to 
* XXX ASOURCE 
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8.2 DEBUGGING SYSTEM GLOSSARY: 



DUMP 



.NAME 



.S 
AON 
AOFF 
SOURCE 



<al\n2 — ) Dumps the contents of memory -from al -for 
a count o-f n2 characters using the current 
base. Prints addresses to le-ft, then 8 
bytes per line. 

(al\a2 — a3) If a2 is the Code Field Address of 
some word, the name of the word is printed, 
and a3 = al. Otherwise, it prints the high 
byte of a2 and sets a3 = al— 1. 

( — ) Nondestructive print of contents of stack. 

( — ) Turns on the printing of addresses by SOURCE. 

( — ) Turns off the printing of addresses by SOURCE. 

( — t;) Decompiles the first word in the text string t . 



ASOURCE (al — ) Decompiles the FORTH word whose PFA is al. 

AFLG ( — al) A system variable used to specify whether or 

not the address of a word will be printed 
during the decompiling action of SOURCE. 
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9.0 GLOSSARY OF OTHER WORDS IN COLORFORTH BUT NOT IN -fig-FORTH 



9. 1 CASSETTE WORDS: 



READ 



(nl — ) 



READS 



(nl\n2 



Reads the -first block encountered on cassette 
starting at the present position of the tape. 
It is read into memory buffer number nl. 
BLOCKs numbers are not stored on cassette 
with the block data, so they can be read into 
any available screen buffer. E.g. 

3 READ < ENTER > 

This will read the first block encountered 
on the cassette into screen buffer number 3. 
The data is now available to FORTH by using 

3 BLOCK 

— ) Similar to READ, buts reads n2 blocks into 
memory buffers nl nl+n2-l. E.g. 



2 3 READS < ENTER > 

will read 3 screens of data into buffers 
2, 3, and 4. 



WRITE 



(nl 



Block nl is written out to cassette at the 
position where the tape is set. You must 
correctly position the tape and set the 
recorder to the record mode before executing 
the command. E.g. 

2 WRITE < ENTER > 



WRITES (nl\n2 — ) Writes blocks number nl 

cassette. See READS . 



. nl+n2-l to the 



CLOADS (nl — 



MOTOR 



) Reads nl blocks from cassette sequentially, 
each going into block buffer #1, and after 
each is read, 1 LOAD is performed. 

) Similar to MOTOR in BASIC, but it simply 
toggles the motor to the opposite state each 
time it is executed; i.e., explicit ON or OFF 
is not stated. 
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9.2 LOADING WORDS: 

THRU <nl\n2 — ) BLOCKS nl through n2 are LOADed in sequence. 

TRY ( — ) The BLOCK specified in the variable SCR is 

LOADed. Since SCR is set when a screen is 
edited, after editing a screen one may just 
say 

QUIT TRY 

to test it. 



9.3 MEMORY MANAGEMENT WORDS: 



#BLOCK (nl — ) 



EMPTY ( — 



BMAX ( 



Sets the number o-f BLOCK BUFFERS to nl and 
sets DP to the end of the new buffer limit. 
It will not permit you to specify the number 
to be greater than the maximum allowed by the 
available memory: 

size of memory 4k 16k 32k 
number of buffers 1 14 29 



) Cleans out all words in the dictionary and 
and resets the DP variable to LIMIT. 



al) 



FREE < — nl) 



Places on the stack the address al which 
contains the maximum valid BLOCK number which 
the system will allow. Its value may be 
changed to inform the system that it should 
reallocate the available memory to give a 
different number of BLOCK buffers. 

Returns nl, the number of free bytes of memory 
remaining. Computed by subtracting HERE from 
the contents of location *74 <which is set by 
the BASIC ROM upon reset). You can change 
the contents of location $74 yourself also. 



9.4 STACK MANIPULATION WORDS: 

SO ( — al ) Returns al, the address of a system variable 

which contains the address of the top of the 
data stack. 

20VER (dl\d2 — dl\d2\dl) The second double number dl is 

duplicated on top of the double number d2. 

2SWAP (dl\d2 — d2\dl) The two top double numbers are 
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?DROP 



?DUP 



2* 



'S 



(dl 



reversed in order. 

) The top double number (two single numbers) 
are dropped -from the stack. 



(dl dl\dl) The top double number is duplicated so 
that a second copy is on the stack also. 

(nl n2) The top number is doubled (does a left 
shift by one bit). Written in assembly. 



(nl 



n2) The top number nl is halved (does a right 
shift by one bit). Written in assembly. 



( al) Leaves the current address of the top of the 
stack on the stack (thus increasing depth of 
stack by one) . Pseudonym for SP3 . 



9.5 DISPLAY CONTROL WORDS: 



CUR 



CLS 

U. 
H. 

SCREEN 
CHAN 



(al — ) Prints the contents of the address al to the 
current output device using current base. 

( al) A system variable which returns the address 
of location in memory which holds the cursor 
pointer. The sequence 

CUR S> 

will leave the address of the current cursor 
position in the display on the stack. 

(nl — ) nl is passed to the BASIC ROM routine which 
does a screen clear. nl specifies the color 
the screen is to be set. 

(nl — ) Prints number nl as a 16 bit unsigned number. 

(nl — ) Prints number nl as a 16 bit unsigned 
hexadecimal number; useful for addresses in 
memory. 

( — al > Returns al, the address of the upper left 
corner of the normal display screen (*400) . 

( — al) Leaves as al the address $6F which contains 
the channel variable used by the BASIC ram 
out put routines. Setting it to -2 will 
cause all output to go to the serial printer 
port; a value of is normal crt output. 
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LISTS (nl\n2 — ) Lists the screen nl through nl+n2-i to the 

current output device (controlled by CHAN). 
Each screen listed is -followed by a FORM 
command which is recognized by most printers. 

FORM < — ■) Emit a -form-feed character (hex *OC) to the 

output device. Moves printer to start o-f 
ne>:t page. 

PRINT ( — t;) Any output caused by the command line t 

will go to the serial port -for the printer. 
EXAMPLE: 

PRINT 1 LIST FORM 23 . < ENTER > 

This will LIST screen #1 to the serial 
printer, send a -form-feed character, and then 
print the number 23 . 

After all commands up to the <ENTER> key have 
been executed, the serial port will be turned 
off and the output res tored to the crt. 
Be-fore PRINT may be used, the baud rate must 
be set by one o-f the BRxxx words. 

ER110 

BR300 

BR600 

BR1200 

BR2400 ( — ) Set the serial port baud rate as specified. 

PAGE < — ) Equivalent to the sequence 1 CLS . It just 

clears the screen to all green and homes the 
cursor to the upper left corner. 

7CR < — ) Tests the system variable OUT for a value 

greater than 25; if it is, then it does a CR. 



9.6 JOYSTICK WORDS: 

JSTK ( — ) Reads all of the joystick values and updates 

their respective memory locations. Joystick 
values may be retrieved from their locations 
by using the words JO, Jl, J2, J3. 

J0,J1,J2,J3 ( — n) Returns the values of the respective 

joystick variable. Must first execute JSTK 
to read them all. E.G. 

JSTK JO Jl 
Leaves the values of JO and Jl on the stack. 
Later, J3 would leave the value of that 
joystick reading as of the last execution of 
JSTK. 
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9.7 TIMER WORDS: 

TIME ( — al) Leaves as al the address of a memory location 

which is decremented by the system clock. 
I he location is decremented each l/<SOth of 
a second, a "tick". 

TIMEO ( — ) Sets the contents of TIME to *FFFF so that 

a subsequent execution of 7TIME will be 
able to get the elapsed time in number of 
"ticks". 

7TIME ( — nl) Leaves as nl the number of "ticks" since the 

last time TIMEO was executed. It does this 
by subtracting the current value of TIME 
from *FFFF. EXAMPLE: 

: TEST TIMEO 3000 O DO LOOP 7TIME ; 
followed by 

TEST 
will print the number of "ticks" of l/60th 
of a second to execute the DO LOOP 3000 
times. 

NOTE: The timer uses the system's 60 hz 
interrupts, the same ones used by the 
keyboard input routines. Consequently, 
do not do a timing operation on any 
which involves keyboard input. 

TICKS (nl — ) System delay routine. nl specifies a number 

of l/60th second "ticks" to wait for. TICKS 
must be preceded by TIMEO to set the TIMER. 
The word TICKS will pause until nl "ticks" 
have elapsed since the last execution of 
TIMEO . 

EXAMPLES: Suppose that the words T5 and T40 
take respectively 5 and 40 "ticks" to 
execute. Then 
TIMEO T5 60 TICKS 
and 

TIMEO T40 60 TICKS 
will each take 60 "ticks" to execute. In 

« e .. e * an>Ple With T5 - 60 TICK S will take 
55 "ticks"; in the case with T40, 60 TICKS 
will take only the remaining 20 "ticks". 
If you were to type 
TIMEO T40 T40 60 TICKS 
then TICKS would return immediately. 
TICKS is useful to synchronize parts of programs 
so that they take equal amounts of time. 
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CODE < — t; ) Starts a CODE definition. Creates a 

dictionary header with the name t . It then 
SMUDGES it, saves the current stack pointer in 
CSP, and then selects the ASSEMBLER vocabulary. 

C ; < ) Terminates a CODE definition, verifies that 

the current stack pointer is equal to the 
value saved in CSP by CODE, unSMUDGEs the 
header, and restores the vocabulary to that 
prior to when the CODE definition was started. 

NEXT ( — ) An ASSEMBLER macro which appends the code for 

the NEXT operation to the end of a CODE 
definition. E.g. 

CODE XXXX x y z . . . NEXT C; 

will define the word XXXX to perform the 
assembler code x y z . . . followed by the 
code for NEXT which returns the execution to 
the FORTH system, and then C; completes the 
definition by restoring pointers and checking 
for stack errors. 



9.9 MISCELLANEOUS: 

MESS (nl — ) A new definition of the FORTH MESSAGE word. 

This word prints a brief text explanation 
instead of just an error number. 

SMOVE (al\a2\n3 — > Does the same function as CMOVE except 

that it translates the data so that it is 
displayed properly. 

ASCII ( — t; n) Accepts the following string t, takes the 

first character and leaves its ASCII numerical 

value on the stack. When compiling, the 

numerical value is compiled as an inline 
1 i teral E.g. , 

ASCII A H. 

will print 41 , the hex numerical value for A. 
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9.10 FORTH-79 WORDS: 

The following FORTH-79 words have been added to the COLORFORTH 
system so that it is more compatible with the version of FORTH 
described by the book STARTING FORTH. Their definitions may be 
found in that book or in the definition of the FORTH-79 standard 
which is available from the FORTH INTEREST GROUP. Note; The 
FORTH-79 STANDARD is the efforts of that group to eliminate the 
previous differences between various implementations of FORTH. 
The COLORFORTH system has extensions which make it very close to 
FORTH-79; however, you should consult the section which discusses 
the differences if you wish to run FORTH-79 standard programs. 
For the expert, the FORTH INTEREST GROUP publishes a document 
describing how to convert fig-FORTH into FORTH-79. The following 
words in COLORFORTH do most of that conversion already. 



?DUP 


NEGATE 


CONVERT 


DNEGATE 


D0= 


D< 


D= 


0> 


DMIN 


R3 



>IN EXIT NOT 
DEPTH D- 1- 

U< 23 2 ! 

2C0NSTANT 2VARIABLE DMAX 
I' J 



Any words which have different definitions in fig-FORTH than in 
FORTH-79 have been installed as fig-FORTH. All of the above 
words Are in high level forth, except I' and J. 
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10.0 FORTH-79 DIFFERENCES 

This is a -fig-FORTH implementation of the language. However, to 

ease the transition to FORTH-79, many FORTH-79 words have been 

added where they do not conflict with fig-FORTH. The differences 

between C0L0RF0RTH and the STARTING FORTH book will be covered 
here, on a chapter by chapter basis. 

STARTING FORTH comments 

Chapters 1 & 2 No differences noted. 

Chapter 3 

pg. 60 — LOAD — The screens in COLORFORTH are numbered 1 to 8. 

pg. 63-88 — COLORFORTH contains this EDITOR plus many 
extensions. 

pg. 68 — LINE LENGTH — The line length in COLORFORTH is 32 
characters. So, some of the examples in the book will have lines 
which are too long. Just break them into two lines. COLORFORTH 
has 32 lines instead of 16 lines. 

pg . 76 — FLUSH — The word FLUSH is not needed in this cassette 
versi on . 

pg , 8 3 HANDY HINTS — The word DEPTH and .S already exist in 

COLORFORTH. 

Chapter 4 

pg . 10 1 ABORT" — COLORFORTH does not support ABORT" . Just 

explicitly print out a message with ." and then use ABORT. 

Chapter 5 No differences noted. 

Chapter 6 

pg _ 140 u.R — COLORFORTH does not have U.R . You can use 

.R* usually, or if you need an unsigned right justified here is 
the definition: 

: U.R SWAP D.R ; 

Chapter 7 

pg. 161 — /LOOP — Not supported in COLORFORTH. 

pg> 162 OCTAL — Not used in COLORFORTH. For most computers, 

including 6809 systems, HEX is much more natural to use than 
OCTAL. 

pg _ 1£th __ DOUBLE NUMBER DELIMITERS — COLORFORTH recognizes only 
the decimal point as a double number delimiter. 
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pg. 173 — DU< — Not supported in COLORFORTH. 

pg. 174 — M+ and M*/ — Not supported in COLORFORTH. 

Chapter 8 

pg. 183 — VARIABLE — The definition of VARIABLE used in 
COLORFORTH is the one -from fig-FORTH, which requires an initial 
value to be on stack before creating the variable. E.g. 

12 VARIABLE DATE 

This will create a variable with an initial value of 12. The 
defintion of 2VARIABLE also requires an initial value on the 
stack, in this case a double number. 

pg. 193 — 2C0NSTANT and 2VARIABLE — Both are supported in 
COLORFORTH, but 2VARIABLE requires a double number on the stack 
for its initial value. 

pg. 199 — ERASE — This is in COLORFORTH. 

pg. 204 — DUMP — This is in COLORFORTH. 

pg. 207 — CREATE — This word functions differently in 
fig-FORTH than in FORTH-79, and COLORFORTH uses the fig-FORTH 
definition. Use the following to create the definition of LIMITS 
as shown in the book: 

220 VARIABLE LIMITS 340 , 170 , 100 , 190 , 

The rule of thumb i s to use VARIABLE in place of CREATE for 
definitions which do NOT have DOES> in them. If the STARTING 
FORTH book definition i s of the form 

CREATE xxxx D0ES> xxxxx 
then use 

< BUILDS xxxx D0ES> x xxxx 

in COLORFORTH. This conforms to the normal fig-FORTH useage. 
Chapter 9 

pg. 216 — FIND and EXECUTE — COLORFORTH uses the 
fig-FORTH word -FIND in place of FIND. In fig-FORTH the word 
EXECUTE must receive the code field address instead of the 
parameter field address. Consequently, on this page of STARTING 
FORTH, one must change the example to 

' GREET CFA EXECUTE <ENTER> HELLO I SPEAK FORTH ok 
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pg. 217 — VECTORED EXECUTION — The techniques will work on 
C0L0RF0RTH with the modification that the addresses obtained with 
* are converted to code field addresses by use of CFA. E.g., 

line 6 would read * HELLO CFA 'ALOHA ! 

pg. 217 — SAY — The definition of SAY in COLORFCRTH is 

: SAY [COMPILE] ' CFA 'ALOHA ! ; 

There are two changes here. The word ' <tick) is used, and 
because in fig— FORTH it is immediate, it must bs cnapilsd by the 
CCOMPILEH word. The second change is the use of CFA to prepare 
the address for EXECUTE. 

pg. 219 — NUMBER — It is not vectored in COLORFORTH, so the 
example will not work. 

pg. 220 — NAME LENGTHS — Names in COLORFORTH may be up to 31 
characters in length. 

pg. 232 — RELOAD — No need, all code in rom ! 

pg. 237 — H — In COLORFORTH this word is called DP. 

pg. 239 — OPERATOR — Not in COLORFORTH. 

pg. 240 — OFFSET — Not in this cassette system. 

pg. 243 — ASSEMBLER — COLORFORTH has a minimal ASSEMBLER 
vocabulary sufficient to hand assemble CODE definitions. 

pg. 245 — LOCATE — COLORFORTH has the decompiler word SOURCE 
which may be used to see how a word is defined. 

Chapter 10 

pg. 255-7 — UPDATE, FLUSH, SAVE-BUFFERS, EMPTY-BUFFERS, BUFFER 
These words not in cassette based COLORFORTH. 

pg. 259 — LABEL — In COLORFORTH must change to 

: LABEL 8 * ' "LABEL" 3 + + 8 TYPE SPACE ; 

COLORFORTH does not support C'l and the word ' serves the same 
function in a definition. 

pg. 261 — >TYPE — COLORFORTH does not need >TYPE. 

pg. 266 — MOVE and <CM0VE — Not in COLORFORTH. 

pg. 272 — H — Use DP . 

pg. 281 — Note: -TEXT in COLORFORTH is different from that 
defined in STARTING FORTH; see EDITOR definitions. 
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Chapter 11 

pg. 291 — VARIABLE CREATE — To create the STARTING FORTH 
type of de-finition for VARIABLE, you can do this: 

: VARIABLE < BUILDS 2 ALLOT DOES> ; 

To create the COLORFORTH (i.e., fig-FORTH) type of definition for 
VARIABLE, you can do this: 

: VARIABLE < BUILDS , DOES> ; 

The COLORFORTH word CREATE is used only for creating CODE word 
headers. 

pg. 292 — DEFINING-WORD — The definition of a DEFINING-WORD in 
the book must be changed to the following in COLORFORTH: 

: DEFINING-WORD <BUILDS (compi le-time action) 

DOES> (run-time action) ; 

The example for CONSTANT is then 

: CONSTANT < BUILDS , D0ES> 3 ; 

pg. 297 — ARRAY — The definition of ARRAY must be changed to 

: ARRAY < BUILDS OVER , * ALLOT 

DOES> DUP 3 ROT * + + 2+ ; 

pg. 313 — DOES> — For most purposes COLORFORTH is the same 
as FORTH-79, but for the advanced programmer, see the document 
FORTH _79 STANDARD CONVERSION from the FORTH INTEREST GROUP. 

pg. 332 — JOB 1FIELD 2FIELD — Again, these definitions must 
be changed to account for the different way CREATE works. Use 

20 VARIABLE JOB 24 , 
OO VARIABLE 1 FIELD 30 , 
30 VARIABLE 2FIELD 12 , 

pg. 339 — SIMPLE FILES — In screen 240 change the definitions 
of SURNAME, GIVEN, JOB, PHONE to the following: 

00 VARIABLE SURNAME 16 , 

16 VARIABLE GIVEN 12 , 

2G VARIABLE JOB 24 , 

52 VARIABLE PHONE 12 , 

pg. 339 — FREE — Change the definition of FREE to the 
f ol lowing: 

: FREE 1 MAXRECS 

DO I OECORD ! RECORD C3 33 < 

IF NOT LEAVE THEN 
LOOP 
IF ."FILE FULL " ABORT THEN ; 
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pg. 339 * <tick) — Prefix all occurrences o-f * with the 
word [COMPILE] , e.g., 

: CHANGE [COMPILE] ' PUT ; 

pg. 347 — screens 246 and 248 — The definitions o-f DENSITY, 
THETA, and STRING will need to be prefixed with a ZERO < O ) 
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11.0 ERRORS, CRASHES, AND OTHER SUCH PROBLEMS 



11. 1 CRASHES 

In the process o-f writing programs, we all make mistakes now and 
then. When this happens, there is a good chance that we will 
"crash" the program. If this happens, do not dispair! Since 
COLORFORTH is in rom, it does not get wiped out; it is simple to 

recover. 

DO NOT TURN OFF THE POWER, as this will cause your source code in 
the BLOCK buffers to be lost. Just press the RESET button on the 
right rear. FORTH will reinitialize with the normal sign on 
message. FORTH does NOT clear out any buffer space on 
initialisation, although it does reset BMAX to 8 ( 1 on a 4k 
system) . So, if your program crash did not write over the buffer 
^rea, your program is preserved. You can go back to it to figure 
out the problem, reload, and retry it. First list out the source 
screens and look for bad code. If you find mistakes, fix them by 
editing. You may find that some "garbage" is in the screens, 
presumably because when your program went west, it wrote into the 
buffers. In this case, you can edit the errors, and go on. 



11.2 ERROR MESSAGES 

When COLORFORTH detects an error, it will stop compiling and an 
appropriate error message is issued. The following is a list of 
the errors and their interpretation. 



ERROR MESSAGE 
WHAT 
STACK EMPTY 

MEM FULL 
REDEF: 



BLK RANGE 



MEANING 

FORTH could not f ind the word in the dictionary 

Some word tried to take something from the stack 
after it was empty. 

You have used up all available memory. 

You have just redefined a word with a name which 
already exists in the dictionary. This is not 
a fatal error, just an informational message. 
Sometimes one deliberately redefines a name. 
Sometimes this reveals a mistake. 

Attempted to access a BLOCK number outside the 
allowed range ( normally 1 — S ). 



7C0MPILE 



Tried to execute a word that may be used only 
within a definition. 



7EXECUTE 



Tried to compile a word into a definition which 
was meant for execution only. 



Copyright 1981, T. J. Zimmer and R. J. Talbot, Jr. 



COLORFORTH USERS MANUAL 



81/12/14 



PAGE 11-2 



'PAIRS 



NOT DONE 



A conditional structure such as IF ... ENDIF 
or DO . . . LOOP was used without the correct 
matching terminating word. 

Attempted to terminate a definition with a ; 
before you -finished it. 



SAVED VOC 



You have attempted to FORGET a word in the 
permanent rom area or below FENCE. 



'LOADING 



Have attempted to execute a word that applies 
applies to loading only. 



OFFSCREEN 



During an edit session the cursor position was 
•found to point outside o-f the current screen. 



SET VOCAB 



You tried to FORGET a word -from a vocabulary 
other than the one you are currently in. You 
need to -force the vocabulary pointers to the 
correct one by stating 



correct— vocabul ary— name DEFINITIONS 



BAD OVERLAY 



During use of an overlay word, ?0V looked at 
the program in memory and found it to not be an 
overl ay. 
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12.0 SOME EXAMPLE CODE AND HANDY UTILITIES 



12.1 A JOYSTICK EDITOR 

This addition to the EDITOR is given in source code form, in the 
listings on screens 23 and 24. You can type them in (they may go 
into any screen). This editor allows you to use the joystick to 
move the cursor around in the screen and then you can manipulate 
the te>:t more easily. A very handy addition is the word GET 
which picks up the word under the cursor so that you can INSERT 
it later somewhere else. 

The best procedure is to use the regular editor to place this 
into some screens, and then save it on cassette tape for later 
use. Then you can start it up by typing 

nl EDIT J <ENTER> 

where the number nl is the screen number you wish to edit. You 
can now move the JOYSTICK around to move the cursor. CAUTION!! 
Many of the keys on the keyboard have an immediate function, 
i.e., you do not have to press < ENTER > after each key. Each of 
the old commands of the regular editor (e.g., P, X, etc.) has 
been assigned to a key — see the source screen for J for the 
definitions). Pressing that key alone (no <ENTER>) will cause 
that word to be executed. For example, to insert some text at 
the position pointed to by the cursor, press I . The black 
cursor stops flashing and you Are prompted with: 



You should enter the string of text you wish to insert, followed 
by <ENTER>. When you press < ENTER > the text appears at the 
position of the cursor and control returns to the JOYSTICK. 

Try it! E.g., insert this somewhere: 

THIS IS A TEST 

Now, suppose that you wish to move the second word of the above 
sentence to the next line. Position the cursor over the I or S 
in the word IS and then press the W button. The word disappears 
and the text on the line is compressed. The word IS is now in 
PADI, so we can insert it elsewhere. Move the cursor down one 
line, place it in the space just preceding the T in THIS on the 
previous line. Now press the I key, followed by <ENTER> (since 
the text to insert is already at PADI). The text will be placed 
in the new line! 
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This is only a small sample o-f what you can do- Try doing a 
sequence of things such as H followed by I . The N and B 
keys allow you to move to the next higher or lower screen for 
editing. You can do anything you want! You have the source! 



12.2 PRINTING 

A couple of useful utilities are given in screen 22 of the source 
listing. The words DLIST and LTHRU allow you to print pairs of 
screens on a single page as was done in the documentation. DLIST 
was used as follows: 



PRINT 



1 



DLIST 



: ENTER > 



This will list screens 1 and 2 to the serial port to a printer, 
side by side. The word LTHRU is similar to THRU, except it is 
used for printing as 



PRINT 



1 6 LTHRU < ENTER > 



Screens 1 through 6 will be printed in the DLIST format. 
to set the BAUD rate before using PRINT. 



Be sure 



12.3 WORD LISTS 

The fig-FORTH word VLIST gives a listing of the words in the 
system. It types them in the order in which they are found, the 
inverse order in which they were entered. 

The following word may be typed in and it will give you a listing 
sorted according to the ASCII order of the first character in the 

name: 



HEX 



ALIST 80 20 DO 



CONTEXT 
BEGIN 



UNTIL 



3 3 

DUP 1+ C5> 
IF CR DUP 
END IF 



7F AND I = 
PFA H. SPACE 
PFA LFA 3 



DUP ID. 
DUP 0= 



DROP 7TERMINAL IF LEAVE END IF 



LOOP 



12.4 

ALTERNATE COLORS 

The COLOR COMPUTER in one of the high resolution graphics modi 
can display one of two sets of four colors. To switch to the 
other set, one must change the fourth bit in the location hex 
*FF22. A word to do this is 



HEX 



ALT 



FF22 8 TOGGLE ; 



Copyright 1981, T. J. Zimmer and R. J. Talbot, Jr. 



COLORFORTH USERS MANUAL 81/12/14 PAGE 1-3-1 



13. O COMMENTS ON THE SOURCE LISTING 

This entire FORTH system was generated on a RADIO SHACK COLOR 
COMPUTER with 32k bytes of memory. While 32k may sound like a 
lot o-F memory, when you are developing a program which is 10k in 
length without benefit of disk, 32k is minimal. You will notice 
that the source is broken into two seperate types o-F listings: 
the assembly listing and the high level FORTH source code. This 
is because it was possible to hold in the computer enough source 
-for only 5k of machine code. The next step was to type in a 
minimal, very small editor -From the keyboard. Once that was in, 
it was used to enter a -Full editor into screens and they were 
saved on cassette -for later use. 

Now with a useful editor, it was easier to work! The rest of the 
J20L0RF0RTH system was gradually developed until a 10k system was 
complete. The final step was to patch the bootup dictionary 
links at C00E and C010 so that the full COLORFORTH would come up 
upon cold start. That was burned into proms. 

We would like to apologize for the lack of comments in the 

listing. It was caused by a lack of space. There was just 

barely room to get the 5k of assembly code in, much less 
comments. 

Some interesting notes about the high level source: There are 
several words in the listing which do not appear in a VLIST. 
This is because their names in the dictionary were overwritten 
with a space. The first of these is on screen 1, line 18. The 
word 'B' was created only to be used to create the words for 
doing Baud rate setting. After it was used to create BRllO — 
BR2400, its function was no longer needed, so it was deleted in 
line 24. This technique was used several time throughout the 
source. We were not trying t° hide anything from you (you have 
the source), but rather we were trying to keep the dictionary 
from getting cluttered with single character, meaningless names. 
We could have given them longer names, but that would just use 
up valuable space for things you would never use. 

In screen 5, lines 19 to 22, the words 'J' and 'JJ' appear. We 
wanted to put in down arrows, but control characters are not 
always visible. So we compiled the words with letter names and 
then in lines 21 and 23 they were written over with down arrows 
(Just try that with a FORTRAN compiler! or a BASIC 
interpreter ! ) . 

It is interesting to note that 19 pages of FORTH creates about 5k 
of compiled code, while it took over 30 dense pages of assembly 
to create 5k of code. FORTH is much more efficient and much more 
easily readable. 
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We hope that you find this an enjoyable product. We enjoyed 
doing it, and it is our hope that you will find that FORTH is a 
useful powerful language for getting more out of your COLOR 
COMPUTER. If you write programs which run with COLORFORTH, 
consider marketing them. FORTH is an excellent language for 
writting games and doing graphics. The benchmarks we have done 
show that COLORFORTH is much faster than COLOR BASIC, so that you 
can do games and such in real time with high level code. 

Future products being planned Are DISK versions of COLORFORTH and 
a TINY PASCAL compiler running on COLORFORTH. What are you going 
to write? 

The present source code could be adapted for use on other 6809 
computers. However, much of it is specific to the COLOR 
COMPUTER, and other parts are done in a space— conserving fashion 
so that we could get a maximum of utility into a given space of 
ROMs. If you have other 6809 systems, contact TALBOT 
MICROSYSTEMS for information on its line of tFORTH products for 
SS-50 bus and EXORCISER <tm Motorola) bus systems. 
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101 


U688 






NAM 


COLORF 








+CQP'VRIGHT 


1981 








*TJ ZIMMER 


& RJ TALBOT 


1Q2 


0600 




PRGBGH 


EQU 


*C000 


S3 


0680 




BRRM 


EQU 


$0620 


04 


0608 




NBLK 


EQU 


o 


05 


0608 




USRBGH 


EQU 


BRAM+-*38 CAUT I ON i 


106 


0680 




USREHD 


EQU 


USRBGN+$380 


107 


0608 




UIRBGH 


EQU 


USREHD 


08 


0608 




U I REND 


EQU 


U I RBGN+ 1 028+NBLK 


=109 


0688 




N 


EQU 


USRBGN 


16 


0608 




UP 


EQU 


USRBGN+*0A 


11 


0600 




UORIG 


EQU 


USRBGN+*0C 


12 


8600 






ORG 


PRGBGN 


H3 


C088 


160127 


KRNL 


LBRR CENT 


H4 


C883 


160173 




LBRR WENT 


H5 


C886 


L16HC 


UPINIT 


FDB 


UORIG 


16 


C808 


067B 


FENCIH 


FDB 


ERAM-RAM+BRRM 


tl? 


C08A 


29C0 


DPINIT 


FDB 


U I REND 


13 


C80C 


064E 


UOCINT 


FDB 


F0RTH+3-RRN+BRRN 


119 


C08E 


0666 


TOPDEF 


FDB 


ED I T0R-9-RRM+BRRN 


20 


C010 


864A 


TOPEDT 


FDB 


FORTH+4-RRM+BRRN 


121 


CO 12 


0888 


MRtfBLK 


FDB 


NBLK 


22 


C014 


0000 




FDB 


$88 


123 


C016 


09A© 


XUIRBG 


FDB 


UIRBGN 


24 


C018 


29C0 


WJIRED 


FDB 


U I REND 


I25 


C01FI 


08A8 


SIHIT 


FDB 


USREND-flOe 


126 


C01C 


03fl0 


TIBIHT 


FDB 


USREHD-* 108 


127 


C01E 


09R0 


RINIT 


FDB 


USREHD 


28 


C020 


00080080 




FDB 


0,0 


=129 


C024 


881 F 


WIDINT 


FDB 


31 


•30 


C826 


0800 




FDB 





31 


C823 


0000 


UIRNINT 


FDB 





32 


C02fl 


3706 


PULLDX 


PULU D 


133 


C02C 


ED84 


STORED 


STD 


, y. 


134 


C02E 


2822 




BRA 


NEXT 


135 


C030 


EC84 


GEJK 


LDD 




136 


C032 


3606 


PUSHD 


PSHU D 


337 


C634 


28 1C 




BRR 


HEKJ 


133 


C836 


CI BR 




FCB 


*Cl,-:+*30 


39 


C038 


0800 




FDB 





40 


C03fl 


C04ECR68CA 


COLON 


FDB 


DOCOL, QEttECSCSP 


41 


C040 


C897C6C0C8 




FDB 


CURENT,AT,CONTXT 


142 


C046 


C6D8CF3BCfl 




FDB 


STORE, CREATE, RBRRK 


43 


C04C 


CB48 




FDB 


PSCODE 


44 


C04E 


3420 


DOCOL 


PSHS V 


45 


C050 


3102 




LEAS 


1 --i '. .' 


146 


C852 


RER1 


NE*T 


LDX 


, V++ 


I47 


C054 


6E94 


NEXT3 


JMP 


C , XI 


148 


C056 


823BD3 




FCB 


*82, •';, •'b+*80 


49 


C859 


C036 




FDB 


C0L0H-4 


158 


C05B 


C85D 


SEMIS 


FDB 


++2 
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C85D 


10REE1 


PSEMIS 


LDV ,S++ 


C060 


20F8 




BRA NEXT 


C862 






FOB $87 


C863 


4558454355 




FCC .•••EXECUT- 


C869 


C5 




FCB -"E+£88 


C86A 


C056 




FDB SENIS-5 


C86C 


C06E 


EKEC 


FDB *+2 


C86E 


3716 




PULU X 


C070 


20E2 




BRA NEXT3 


C072 


852D544558 




FCB $85, •-,-"T, -E, -X 


C077 


D4 




FCB -' T+$80 


C07S 


C062 




FDB EXEC- 10 


C07A 


C07C 


MTEXT 


FDB ++2 


C07C 


343© 




r .31-1.3 r\> v 


C07E 


3718 




PULU X 


C0S8 


3726 




PULU D,V 


C082 


A688 


MTEXT2 


LDA .. X+ 


C084 


R1A8 




CMPA ,V+ 


C086 


2687 




BNE HMTCH 


C088 


5fl 




DECB 


C889 


26F7 




BNE MTEXT2 


C08B 


C6U 1 




LDB #*S1 


C08D 


2081 




BRA MEXIT 


C88F 


5F 


HMTCH 


CLRB 


C890 


4F 


MEXIT 


CLRA 


C091 


3538 




PULS X,V 


C093 


16FF9C 




LBRA PUSHD 


C896 


84454D49D4 




FCB $84, -E, - M, - 1 , "T+$80 


C09B 


C872 




FDB MTEXT-S 


C09D 


C04EC6A3C1 


EMIT 


FDB DOCOL , DUP , L I T , 7 > EQUAL 


C0fl7 


C1E6 




FDB ZBRAN 


C8A9 


888flClCA80 




FDB EM I T2-+ , L I T , 238 


GOAF 


C78CD47E 




FDB ONE, TONE 


C0B3 


C0B7C05B 


EMIT2 


FDB CEM IT, SEMIS 


C0B7 


C0B9 


OEM IT 


FDB ++2 


C0B9 


3706 




PULU D 


COBB 


3434 




PSHS B,X,V 


C0BD 


1F9S 




TFR B,A 


C8BF 


RD9FA0O2 




JSR C*A882] 


C0C3 


3534 




PULS B,X,V 


CSC5 


BE86D6 




LDX U0RIG+S2A 


C8C8 


30O1 




LEAX 1,X 


C0CA 


BF86D6 




STX U0RIG+S2A 


C8CD 


16FF82 




LBRA NEXT 


C0D0 


834B45D9 




FCB $83, - K, -E, ■','+$&& 


C8D4 


C896 




FDB EMIT-7 


C0D6 


C04EC8E2C7 


KEV 


FDB DOCOL , CKEV , ZERO 


C0DC 


C784D47EC8 




FDB ZERO , TONE , SEM I S 


C0E2 


C0E4 


CKEV 


FDB ++2 


C0E4 


3438 




PSHS X,V 


C0E6 


BDA1B1 




JSR $fllBl 


C0E9 


1F89 




TFR A,B 
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C8EB 


353© 




puls x,v 




COED 


4F 




CLRfl 




C8EE 


16FF41 




LBRR PUSHD 




C8F1 


y9 




FCB $89 




C9F2 


3F5445524D 




FCC .--T-TERMIHfl.-- 




C0FR 


CC 




FCB -L+^SO 




CQFB 


C0D6 




FDB KEV-6 




COFD 


COFF 


QTERM 


FDB ++2 




C8FF 


3430 




PSHS X,V 




CI 81 


RD9FA000 




JSR C*R0083 




CI 05 


3530 




PULS X,V 




CI 07 


1FS9 




TFR R,B 




CI 09 


4F 




CLRR 




ClBfl 


16FF25 




LBRR PUSHD 




C16D 


8243D2 




FCB $82 .. -' C , -" R+$S8 




cue 


COFl 




FDB QTERM-*8C 




CI 12 
CI 16 


C04ECBE4 
820D0R 


CR 


FDB DOCOL,PDOTQ „ / ,,„.,- 
FCB 2,13, <g>—-&- ***»3*B 
FDB ZERO, OUT 00 


to 


CI 19 


C784C864 






CUD 


C6D8C85B 




FDB STORE, SEMIS 




CI 21 


84434F4CC4 




FCB $84, • C, -0, - L, -'D+*88 




CI 26 


C18D 




FDB CR-5 




CI 28 


C12fi 


COLD 


FDB ++2 




C12R 


4F 


CENT 


CLRR 




C12B 


1F8B 




TFR fl,DP 




CI 2D 


1CEF 




flNDCC #*EF 




C12F 


CE067B 




LDU ttERRM-RHH+BRRM 




CI 32 


3ED5CB 




LDX ttERflfl 




CI 35 


H6c-ji 


COLD2 


LDR , -X 




CI 37 


R7C2 




STR ,-U 




CI 39 


SCD578 




CPX #RRM 




C13C 


26F7 




BNE C0LD2 




C13E 


BEC88E 




LDX TOPDEF 




CI 41 


BF064C 




STX F0RTH+6-RRM+BRRN 




CI 44 


BECS10 




LDX TOPEDT 




CI 47 


BF0675 




STX ED I T0R+6-RRM+BRRM 




C14fl 


18FEC01E 




LDS RINIT 




C14E 


CE86C2 




LDU #U0RIG+*16 




CI 51 


8EC016 




LDX #XUIRBG 




C154 


R682 


COLDZ 


LDR ,-X 




CI 56 


R7C2 




STR ,-U 




CI 58 


3CC008 




CPX #FENCIN 




C15B 


26F7 




BHE COLDZ 




C15D 


9674 




LDR $74 




C15F 


8130 




CMPR #$38 




C161 


2216 




BHI WENT 




CI 63 


8601 




LDR #$01 




CI 65 


B706BF 




STR U0RIG+$13 




CI 68 


CC0DR4 




LDD #$8DR4 




C16B 


FD86B6 




STD UORIG+$0fl 




C16E 


2809 




BRR WENT 




CI 70 


84574 152CD 




FCB $84, •-I..I, -fl, -R, -'M+*80 
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CI 75 C121 
CI 77 CI 79 
CI 79 CE66D2 
C17C 8EC82R 
C17F R682 
CI SI A7C2 
CI S3 8CC01R 
CI 86 26F7 
CI 88 FEC01R 
CI SB BEC8Q6 
C1SE BFQ6flfl 
CI 91 108ED0DE 
CI 95 160025 
C 1 98 835350C0 
C19C CI 70 
C19E C1R0 
Clfl0 30C4 
C1R2 3610 
C1R4 16FERB 
C1R7 835350R1 
ClflB CI 98 
ClflD ClflF 
ClflF FEC01R 
C1B2 16FE9D 
C1B5 83525tffil 
C1B9 C1R7 
C1BB C1BD 
C1BD 18FEC01E 
CI CI 16FE8E 
C1C4 834C49D4 
C1C8 C1B5 
C1CR C1CC 
C1CC ECR1 
C1CE 16FE61 
C1D1 8642524 14E 
C1D7 C8 
C1D8 C1C4 
C1DR C1EC 
CI DC 8730425241 
C1E3 C8 
C1E4 C1D1 
C1E6 C1E8 
C1ES ECC1 
ClEfl 2609 
CI EC 1F20 
C1EE E3R4 
C1F0 1F02 
C1F2 16FE5D 
C1F5 3122 
C1F7 16FE58 
C1FR 86284C4F4F 
C200 R9 



FDB COLD-7 
WARM FDB *+2 
WENT LDU #U0RIG+$26 

LDX #URNINT+2 
WRRM2 LDfi ,-X 

STR ,-U 

CPX #51 NIT 

BNE WRRM2 

LDU SI NIT 

LDX UP I NIT 

STX UP 

LDV #RB0RT+2 

LBRfl RPSTOR+2 

FCB $33, •'S, -'P, '«+*SQ 

FDB WRRM-7 
SPRT FDB ++2 

LEAK ,U 

psriu X 

LBRfl NEXT 

FCB $83, "S, -P, -' ! +$80 
FDB SPRT-6 
SPSTOR FDB ++2 

LDU SINIT 
LBRR NEXT 

FCB $83, "R.. -P.. ••" ! +$80 
FDB SPSTOR-6 
RPSTOR FDB ++2 

LDS RINIT 
LBRR NEXT 

FCB $83, -L, •" I , -T+^SC 
FDB RPSTGR-6 
LIT FDB *+2 
LDD ,V++ 
LBRfl PUSHD 
FCB $86, • B, -' 

-' H+$80 

LIT-6 
BRRN FDB ZBVES 

$87, -0, - 

•"H+$80 

BRRN-$09 
:BRflN FDB ++2 

, U++ 

ZBNO 

V,D 



3BVES 



:BNO 



FCB 

FDB 

FDB 

FCB 

FCB 

FDB 

FDB 

LDD 

BNE 

TFR 

fiDDD ,V 

TFR D,V 

LBRR NEXT 

LEflV 2,V 

LBRfl NEXT 

FCB $86, •'< 

FCB •'>+$88 



R, -fl, "N, -C 



B, 'R, "H, "N, X 



, -L, -0, "U, 
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C-2W 1 


CI DC 




FDB ZBRRN-*8fl 


C283 


C2S5 


XLOOP 


FDB ++2 


C285 


CC0001 




LDD #$01 


C28S 


288E 




BRR XPL0P2 


C28R 


S72S2B4C4F 




FCB $87, "<.. -' + .. 


C211 


FI9 




FCB -'>+$88 


C212 


C1FR 




FDB XLOOP-9 


C214 


C216 


XPLOOP 


FDB ++2 


C216 


3786 




PULU D 


C218 


4D 


XFL0P2 


TSTR 


C2 1 9 


2R8E 




BPL XPLOF 


C21B 


E3E4 




RDDD ,S 


C21D 


EDE4 




STD ,S 


C21F 


1C01 




RHDCC #$81 


C221 


E263 




SBCB 3,S 


C223 


R262 




SBCfl 2,S 


C225 


2flC5 




BPL ZBVES 


C227 


288S 




BRR XPLONO 


C229 


E3E4 


XPLOF 


RDDD , S 


C22B 


EDE4 




STD ,S 


C22D 


R362 




SUBD 2,S 


C22F 


2BBB 




BMI ZBVES 


C231 


3264 


XPLOMO 


LERS 4,S 


C233 


20C8 




BRR ZBNO 


C235 


8428444FR9 




FCB $34, •'<, -D, 


C23R 


C20fi 




FDB XPL00F'-$8fl 


C23C 


C23E 


XDO 


FDB ++2 


C23E 


3706 




PULU D 


C240 


3716 




PULU X 


C242 


3416 




PSHS X,D 


C244 


16FE8B 




LBRR NEXT 


C247 


81C9 




FCB $81, 'I+*30 


C249 


C235 




FDB XDO-7 


C24B 


C24D 


I 


FDB *+2 


C24D 


ECE4 




LDD ,S 


C24F 


16FDE8 




LBRR PLISHD 


C252 


8544494749 




FCB $85, -D, - I, 


C257 


D4 




FCB -'T+$88 


C253 


C247 




FDB 1-4 


C25fl 


C25C 


DIGIT 


FDB *+2 


C25C 


R643 




LDR 3,U 


C25E 


8838 




SUBfl #$38 


C268 


2B1B 




BMI DIGIT2 


C262 


810R 




CMPfl #$8fl 


C264 


2B8R 




BMI DIGITS 


C266 


8111 




CMPfl #$11 


C26S 


2B13 




BMI DIGIT2 


C26fl 


812B 




CMPR #$2B 


C26C 


2R8F 




BPL DIGIT2 


C26E 


8887 




SUBfl #$87 


C278 


R141 


DIGIT8 


CMPfl 1,U 


C272 


2R89 




BPL DIGIT2 



L, '0, -'0, "P 



FOR 



BACK 



0, - ':>+$88 



-.-> rote 



BRD<8 



OK 



BHD<R 



bhd >; 



BRD>BRSE 
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259 


C274 


C601 




LDB #$01 


266 


C276 


R743 




STR 3,U 


261 


C278 


E741 


DIGIT1 


STAB 1,U 


262 


C27R 


16FDD5 




LBRR NEXT 


263 


C27D 


5F 


DIGIT2 


CLRE 


264 


C27E 


3342 




LERU 2,U 


265 


C280 


E7C4 




STRB 0,U 


26>6 


C282 


26F4 




BRR DIGIT 1 


267 


C284 




PD 


EQU N 


268 


C284 




PRO 


EQU N+2 


269 


C284 




Ffi 


EQU N+4 


278 


C284 




PCHR 


EQU N+6 


271 


C2S4 


862S46494E 




FCB $86, •••■;, 


272 


C23FI 


fl9 




FOB -'5+*80 


273 


C28B 


C252 




FDB DIGIT-8 


274 


C28D 


C28F 


PFIND 


FDB ++2 


275 


C28F 


3420 




PSHS V 


276 


C291 


3730 


PFIND0 


PULU tf,V 


277 


C293 


10BF06R2 




STV PRO 


273 


C297 


E680 


PFIND1 


LDB ,>■=:+ 


279 


C299 


F706R6 




STRB PCHR 


2:30 


C29C 


C43F 




RNDB #$3F 


231 


C29E 


10BEO6R2 




LDV PRO 


232 


C2R2 


ElflO 




CMPB 0,V+ 


283 


C2R4 


26 IS 




BNE PFIND4 


284 


C2FI6 


R6R0 


PFIND2 


LDR ,V+ 


285 


C2R8 


6D84 




TST ,K 


286 


C2RR 


2R0E 




BPL PFIND3 


237 


C2flC 


3R80 




ORR #$80 


?88 


C2flE 


R180 




CMPR ,X+ 


239 


C2B0 


2712 




BEQ FOUND 


290 


C2B2 


RE84 


PFIND3 


LDK ©..;<: 


291 


C2B4 


26E1 




BNE PFIND1 


292 


C2B6 


1F10 




TFR H,D 


293 


C2B8 


2614 




BRR PFINDE 


294 


C2BR 


R180 


PFIND8 


CMPR ,K+ 


295 


C2BC 


27E8 




BEQ PFIND2 


296 


C2BE 


E680 


PFIND4 


LDB ,X+ 


297 


C2C0 


2RFC 




BPL PFIND4 


298 


C2C2 


28EE 




BRR PFIND3 


299 


C2C4 


3804 


FOUND 


LEflX 4,X 


300 


C2C6 


F606R6 




LDB PCHR 


301 


C2C9 


4F 




CLRR 


302 


C2CH 


3616 




PSHU X,b 


363 


C2CC 


C601 




LDB #*Q1 


304 


C2CE 


3520 


PFINDE 


PULS V 


305 


C2D0 


16FD5F 




LBRR PUSHD 


306 


C2D3 


S7454E434C 




FCB $87, -E, 


307 


C2Dfl 


C5 




FCB -E+*30 


393 


C2DB 


C284 




FDB PFIND-9 


309 


C2DD 


C2DF 


ENCLOS 


FDB =+=+2 


316 


C2DF 


3706 




PULU D 



"F, -I, -N, -D 



N, -C, -L, -'0, "S 
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311 


C2E1 


3420 




PSHS V 




312 


C2E3 


8EFFFF 




LDX #*FFFF 




313 


C2E6 


1 0REC4 




LDV ,U 




314 


C2E9 


3001 


ENCLOl 


LEAK 1..V. 




315 


C2EB 


ElflS 




CMPB .-'.•'+ 




316 


C2ED 


27FA 




BEQ ENCLOl 




317 


C2EF 


3610 




PSHU K 




318 


C2F1 


6D3F 




TST -1,V 




319 


C2F3 


2604 




BNE ENCL02 




326 


C2F5 


3001 




LEAK 1,X 




321 


C2F7 


200fl 




BRA EHCL11 




322 


C2F9 


3001 


ENCL02 


LEAX 1,X 




323 


C2FB 


E1R4 




CMPB ,V 




324 


C2FD 


270S 




BEQ ENCL2 




325 


C2FF 


6DR0 




TST ,V+ 




326 


C301 


26F6 




BNE EHCL02 




327 


C303 


361© 


ENCL11 


PSHU X 




328 


C305 


2004 




BRA ENCL4 




329 


C307 


3610 


ENCL2 


PSHU X 




338 


C369 


3001 




LEAX 1,X 




331 


C30B 


3610 


ENCL4 


PSHU X 




33° 


C30D 


3520 




PULS V 




333 


C30F 


16FD40 




LBRfl NEXT 




334 


C312 


85434D4F56 




FCB $85, -C, -H, 


• 0, 'U 


335 


C317 


C5 




FCB 'E+*30 




336 


C318 


C2D3 




FDB ENCLOS-*0fl 




337 


C31fl 


C31C 


CMOUE 


FDB ++2 




338 


C31C 


3430 




PSHS X.V 




339 


C31E 


-— • 1* -J>t» 




PULU D,X,V 




340 


C320 


3440 




PSHS U 




341 


C322 


1F23 




TFR V,U 




342 


C324 


1F02 




TFR D,V 




343 


C326 


3121 




LEAV 1.-V 




344 


C328 


313F 


CMQU2 


LEflV -l.-V 




345 


C32A 


2706 




BEQ CM0U3 




346 


C32C 


A6C0 




LDA ,U+ 




347 


C32E 


R780 




STA ,X+ 




343 


C336 


20F6 




BRA CM0U2 




349 


C332 


3540 


CM0U3 


PULS U 




350 


C334 


3530 




PULS X,V 




351 


C336 


16FD19 




LBRA NEXT 




352 


C339 


S5534D4F56 




FCB $85, "S, "H, 


•0, 'U 


353 


C33E 


C5 




FCB -'E+*S6 




354 


C33F 


C312 




FDB CMOUE-8 




355 


C341 


C343 


SMOUE 


FDB +-+2 




356 


C343 


3430 




PSHS X,V 




357 


C345 


3736 




PULU D,X,V 




358 


C347 


3440 




PSHS U 




359 


C349 


1F23 




TFR V,U 




360 


C34B 


1F02 




TFR D,V 




361 


C34D 


3121 




LEflV 1,V 




362 


C34F 


313F 


SM0U2 


LEAV -1,V 
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363 C351 2710 

364 C353 A6C8 

365 0355 815F 

366 C357 2206 

367 C359 8A48 

368 C35B A788 
1369 C35D 28F0 
376 C35F 84 IF 

371 C361 20F8 

372 C363 3548 

373 C-365 3538 
1374 C367 16FCE8 

375 C36A 84574156 

376 C36E C5 

377 C36F C339 

378 C371 C373 
1379 C373 3438 
388 C375 3736 
381 C377 3448 
3y2 C379 1F23 
383 C37B 1F82 
1384 C37D 9F62 
385 C37F 863C 
1386 C381 B7FF23 

387 C384 3121 

388 C3S6 313F 
3tf9 C388 278D 

390 C38A A6C8 

391 C38C B7FF28 

392 C38F 9E82 

393 C391 30 IF 

394 C393 26FC 

395 C395 20EF 
3y6 C397 3548 
397 C399 3538 
1393 C39B 16FCB4 
399 C39E 8255AA 
488 C3A1 C36A 

1481 C3R3 C3A5 

1482 C3A5 3716 
483 C3A7 3416 
1484 C3fl9 A661 

485 C3AB E663 

486 C3AD 3D 

487 C3AE 3686 

488 C3B8 4F 

489 C3B1 5F 

410 C3B2 3686 

411 C3B4 A6E4 

412 C3B6 E663 

413 C3B8 3D 

414 C3B9 E341 



BEQ 5M0U3 

LDA ,U+ 

CMPfl #*5F 

BHI LCflSE 

ORA #*48 
SM0U4 STA ..K+ 

BRA SM0U2 
LCASE AND A #$1F 

BRA SM0U4 
SM0U3 PULS U 

PULS X,V 

LBRA NEXT 

FOB $84, -W, 'A, -U 

FOB 'E+*88 

FDB SMOUE-8 
WAUE FDB ++2 

PSHS X,V 

PULU D,X,V 

PSHS U 

TFR VSU 

TFR D,S' 

bTX $82 

LDA #*3C 

STA $FF23 

LEAV 1,V 
WAUE2 LEAS-' -1,V 

BEQ WAUE3 

LDA ,U+ 

STA $FF28 

LDX $82 
UAUE4 LEAK -1,X 

BNE WAUE4 

BRA WAUE2 
WAUE3 PULS U 

PULS X,V 

LBRA NEXT 

FOB $82 .. '" U .. - ++$38 

FDB WAUE-7 
UbTAR FDB ++2 

PULU D,X 

PSHS D,X 

LDA 1,S 

LDB 3,S 

MUL 

PSHU D 

CLRA 

CLRB 

PSHU D 

LDA 8..S 

LDB 3,S 

MUL 

ADDD 1,U 
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9415 C3BB ED41 

3416 C3BD R661 

3417 C3BF E662 
3413 C3C1 3D 
3419 C3C2 E341 
3426 C3C4 ED41 

3421 C3C6 R6E4 

3422 C3C8 E662 

3423 C3CA 3D 

3424 C3CB E3C4 

3425 C3CD EDC4 

3426 C3CF 3264 
342? C3D1 16FC7E 

3428 C3D4 8255RF 

3429 C3D7 C39E 

3438 C3D9 C3DB USLRSH 

3431 C3DB EC42 

3432 C3DD RE44 

3433 C3DF RF42 

3434 C3E1 ED44 

3435 C3E3 6843 

3436 C3E5 6942 

3437 C3E7 8E8818 

3433 C3Efl 6945 USLL1 

3439 C3EC 6944 

3440 C3EE EC44 

3441 C3F8 R3C4 

3442 C3F2 1CFE 

3443 C3F4 2B84 

3444 C3F6 ED44 

3445 C3F8 1R81 

3446 C3FA 6943 USLL2 
344? C3FC 6942 

3443 C3FE 38 IF 

3449 C488 26E8 

3450 C482 3342 

3451 C484 16FC4B 

3452 C487 8232RA 

3453 C48R C3D4 

3454 C48C C48E TSTR 

3455 C48E 6841 

3456 C418 69C4 

3457 C412 16FC3D 

3458 C415 8232RF 

3459 C418 C487 

3460 C41R C41C TSLS 

3461 C41C 67C4 
J462 C41E 6641 
J463 C428 16FC2F 

3464 C423 33414EC4 

3465 C427 C415 

1466 C429 C42B AND 



'''+*8y 



STD 1,U 
LDR 1,S 
LDB 2,5 
MUL 

ROOD 1,U 
STD 1,U 
LDR 8,5 
LDB 2,5 
MUL 

RDDD 8,U 
STD 8,U 
LERS 4,5 
LBRR NEXT 
FCB *82, "U, 
FDB USTfiR-5 
FDB ++2 
LDD 2,U 
LDX 4,U 
STK 2,U 
STD 4,U 
RSL 3,U 
ROL 2, LI 
LDX #*1S 
ROL 5,U 
ROL 4,U 
LDD 4,U 
SUED ,U 
RWDCC #*FE 
BMI USLL2 
STD 4,U 
ORCC #1 
ROL 3,U 
ROL 2,U 
LEAK -*1,X 
BHE USLL1 
LEALI 2,U 
LBRA NEXT 
FCB $82, -'2, ■'■+■+■$ 
USLASH-5 

:+:+2 
1,U 
8,U 

LBRR NEXT 
FCB $82, -2. 

TSTR-5 

++2 

e,u 

1--LI 
LBRR NEXT 
FCB $83, "A, 
FDB TSLS-5 
FDB ++2 



CLC 



SEC 



?.8 



FDB 
FDB 
LSL 
ROL 



FDB 
FDB 
ASR 
ROR 



+$t:8 



••N,-D+$se 
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C42B 


3706 


C42D 


E441 


C42F 


R4C4 


C431 


EDC4 


C433 


16FC1C 


C436 


S24FD2 


C439 


C423 


C43B 


C43D 


C43D 


3706 


C43F 


EFI41 


C441 


RHC4 


C443 


20EC 


C445 


83534FD2 


C449 


C436 


C44B 


C44D 


C44D 


3706 


C44F 


E341 


C451 


RSC4 


C453 


20DC 


C455 


81 FIB 


C457 


C445 


C459 


C45B 


C45B 


3706 


C45D 


E3C4 


C45F 


16FFCF 


C462 


8244RB 


C465 


C455 


C467 


C46y 


C469 


EC42 


C46B 


E346 


C46D 


ED46 


C46F 


ECC4 


C471 


E945 


C473 


R944 


C475 


3344 


C477 


EDC4 


C479 


16FBD6 


C47C 


854D494E55 


C4S1 


D3 


C482 


C462 


C4S4 


C4tf6 


C4S6 


6641 


C4SS 


2505 


C4Sfl 


60C4 


C48C 


16FBC3 


C4SF 


63C4 


C491 


16FBBE 


C494 


86444D494E 


C49fl 


D3 


C49B 


C47C 


C49D 


C49F 


C49F 


63C4 



PUTD 



OR 



XOR 



PLUS 



DPLIK 



MINUS 



minus: 



DMINUS 



PULU 


D 




flNDB 


1,U 




flNDfi 


0, U 




STD 


*U 




LBRR 


NEXT 




FOB 


$82.. "0, - 


' R+*SO 


FDB 


RND-6 




FDB ■■ 


++2 




PULU 


D 




ORB 


1,U 




ORR 


0,U 




BRR 


PUTD 




FCB 


♦\_"i_'.' ft t 


0, "R+^SO 


FDB 


0R-5 




FDB 


++2 




PULU 


1 D 




EORB 


1,U 




EORfl 


i 0,U 




BRR 


PUTD 




FCB 


$81.. •-++*80 


FDB 


XOR-6 




FDB 


++2 




PULU 


D 




ftDDD 


,U 




LBRF 


1 PUTD 




FCB 


$82, -D, 


••" ++*8y 


FDB 


PLUS-4 




FDB 


*+2 




LDD 


2,U 




flDDC 


> 6,U 




STD 


6,U 




LDD 


,U 




flDCE 


! 5,U 




fiDCF 


1 4,U 




LERL 


1 4,U 




STD 


,U 




LBRR NEXT 




FCB 


*85, -M, 


-1,-N, -U 


FCB 


•S+*80 




FDB 


DPLUS-5 




FDB 


++2 




NEG 


1,U 




BCS 


MINUS2 




NEG 


,U 




LBRR NEXT 




COM 


,U 




LBRF 


1 NEXT 




FCB 


$86, "D.. 


•M,-I,-'N, 


FCB 


" S+*80 




FDB 


MINUS-8 




FDB 


:*+2 




COM 


0, U 





u 
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C4R1 


6341 




COM 


1,U 


C4A3 


6342 




COM 


2,U 


C4R5 


6043 




HEG 


3,U 


C4R7 


268R 




BNE 


DM I NX 


C4A9 


6C42 




INC 


2,U 


C4RB 


2606 




BNE 


DM I NX 


C4RD 


6C41 




INC 


1 , U 


C4RF 


2602 




BNE 


DM I NX 


C4B1 


6CC4 




INC 


,U 


C4B3 


16FB9C 


DM I NX 


LBRR NEXT 


C4B6 


823 1RB 




FCB 


$82.. "1, "++$80 


C4B9 


C494 




FDB 


DMINUS-9 


C4BB 


C4BD 


QNEP 


FDB 


++2 


C4BD 


ECC4 




LDD 


,U 


C4BF 


C38081 




RDDl 


> #1 


C4C2 


16FF6C 




LBRR PUTD 


C:4C5 


8232RB 




FCB 


$82.- "2, '''++$8U 


C4CS 


C4B6 




FDB 


ONEP-5 


C4CR 


C4CC 


TUIOP 


FDB 


++2 


C4CC 


CC0002 




LDD 


#2 


C4CF 


E3C4 




RDDD , U 


C4D1 


16FF5D 




LBRR PUTD 


C4D4 


824DRR 




FCB 


$32.. 'M, -'++$80 


C4D7 


C4C5 




FDB 


TWOP-5 


C4D9 


C04EC676C6 


MSTRR 


FDB 


DOCOL, OUER, OUER, XOR 


C4E1 


C652C59AC6 




FDB 


TOR, ABS,SURP,ABS 


C4E9 


C3R3C660C6 




FDB 


USTRR, FROMR, DSETSN 


C4EF 


C05B 




FDB 


SEMIS 


C4F1 


81RR 




FCB 


$81.. -++$80 


C4F3 


C4D4 




FDB 


MSTRR-5 


C4F5 


C04EC4D9C6 


STAR 


FDB 


DOCOL, MSTRR, DROP 


C4FB 


C65B 




FDB 


SEMIS 


C4FD 


824 DflF 




FCB 


$82, "M, '''+$80 


C506 


C4F1 




FDB 


STRR-4 


C582 


C84EC676C6 


MSLRSH 


FDB 


DOCOL, OUER, TOR, TOR 


C5QR 


C5RFC66DC5 




FDB 


DfiBS, R, RBS, USLRSH 


C512 


C660C66DC4 




FDB 


FROMR, R, XOR, SETSN 


C51R 


C692C660C5 




FDB 


SWAP, FROMR, SETSN 


C520 


C692C05B 




FDB 


SWAP, SEMIS 


C524 


842F4D4FC4 




FCB 


$84, V, • M, "O, 'D+$30 


C529 


C4FD 




FDB 


MSLASH-5 


C52B 


C04EC652C5 


SLMOD 


FDB 


DOCOL , TOR , STOD , FROM 


C533 


C582C05B 




FDB 


MSLASH, SEMIS 


C537 


81RF 




FCB 


$81, -','+$30 


C539 


C524 




FDB 


SLMOD-7 


C53B 


C04EC52BC6 


SLASH 


FDB 


DOCOL, SLMOD, SWAP 


C541 


C684C85B 




FDB 


DROP, SEMIS 


C545 


834D4FC4 




FCB 


$83, "M, -0, -D+$38 


C549 


C537 




FDB 


SLASH-4 


C54B 


C04EC52BC6 


MOD 


FDB 


DOCOL, SLMOD, DROP 


C551 


C05B 




FDB 


SEMIS 
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536 



C553 


S52R2F4D4F 




FCB 


■$85.. ■•+, ••.•••, -'M, -0 


C558 


C4 




FOB 


"D+$80 


C559 


C545 




FDB 


MOD-6 


C55B 


C64EC652C4 


SSMOD 


FDB 


DOCOL..TOR,NSTRR 


C561 


C66OC502C0 




FDB 


FRONR, NSLRSH, SEMIS 


C567 


822RRF 




FCB 


$82.. •'' + .. ••'■•+$80 


C56fl 


.C553 




FDB 


SSMOD-8 


C56C 


C04EC55BC6 


SSLRSH 


FDB 


DOCOL.. SSMOD.. SWAP 


C572 


C684C05B 




FDB 


DROP, SEMIS 


C576 


854D2F4D4F 




FCB 


$85, -'M, -V, -N, -0 


C57B 


C4 




FCB 


•'D+$80 


C57C 


C567 




FDB 


SSLflSH-5 


C57E 


C04EC652C7 


NSMOD 


FDB 


DOCOL, TOR, ZERO, R 


C586 


C3D9C660C6 




FDB 


USLASH, FRONR, SWAP 


C5SC 


C652C3D9C6 




FDB 


TOR, USLASH, FRONR 


C592 


C05B 




FDB 


SEMIS 


C594 


834142D3 




FCB 


$83, "A, -B, "S+$30 


C598 


U576 




FDB 


NSriOD-8 


C59R 


C84EC6A3C6 


RBS 


FDB 


DOCOL, DUP, ZLESS, ZBRRN 


C5R2 


S004C484 




FDB 


ABS2-+, MINUS 


C5fl6 


C05B 


RBS2 


FDB 


SEMIS 


C5fl8 


84444 142D3 




FCB 


$fc>4, "D, -'A, "B, -'S+$80 


C5RD 


C594 




FDB 


RBS-6 


C5RF 


C04EC6A3C6 


DABS 


FDB 


DOCOL, DUP, ZLESS, ZBRRN 


C5B7 


Q004C49D 




FDB 


DABS2-+,DMINUS 


C5BB 


C05B 


DABS2 


FDB 


SEMIS 


C5BD 


81BC 




FCB 


$81, "<+$80 


C5BF 


C5A8 




FDB 


DABS-7 


C5C1 


C5C3 


LESS 


FDB 


++2 


C5C3 


3706 




PULU D 


C5C5 


R1C4 




CMPfl 0,U 


C5C7 


2E09 




BGT 


LESST 


C5C9 


2604 




BNE 


LESSF 


C5CB 


E141 




CNPB 1,U 


C5CD 


2203 




BHI 


LESST 


C5CF 


5F 


LESSF 


CLRB 


C5D6 


2002 




BRR 


LESSX 


C5D2 


C601 


LESST 


LDB 


#1 


C5D4 


4F 


LESStt 


CLRF 


1 


C5D5 


16FE59 




LBRfi PUTD 


C5D8 


84532D3EC4 




FCB 


$84, "S, -'-, '>, -'D+$8B 


C5DD 


C5BD 




FDB 


LESS-4 


C5DF 


C5E1 


STOD 


FDB 


:+:+2 


C5E1 


CC0000 




LDD 


#0 


C5E4 


6DC4 




TST 


,U 


C5E6 


2fl02 




BPL 


ST0D2 


C5E8 


43 




COMF 


1 


C5E9 


53 




CONE 




C5ER 


EDC3 


ST0D2 


STD 


,— U 


C5EC 


16FR63 




LBRF 


1 NEXT 


C5EF 


322BAD 




FCB 


$82, •' + , --+$80 


C5F2 


C5D8 




FDB 


STOD-7 
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11 C5F4 


C84EC62RC1 


SETSH 


FDB DOCOL , ZLESS , ZBRRN 


'.Z C5FR 


0084C484 




FDB SETSN2-* , M I NUS 


M C5FE 


C85B 


SETSN2 


FDB SEMIS 


*5 C6WQ 


83442BRD 




FOB $83, "D, " + .. ''-+$86 


*6 C664 


C5EF 




FDB SETSN-5 


27 C686 


CQ4EC62RC1 


DSETSH 


FDB DOCOL , ZLESS , ZBRRN 


>8 C6SC 


0804 C49D 




FDB DSETS2-* , DM I NUS 


L'9 C616 


CQ5B 


DSETS2 


FDB SEMIS 


56 C612 


8236BD 




FOB $82, "8, -'=+$30 


>1 C615 


C60O 




FDB DSETSN-6 


:2 C617 


C619 


ZEQU 


FDB *+2 


33 C619 


4F 




CLRR 


34 C&lfl 


5F 




CLRB 


35 C61B 


REC4 




LDX ,U 


36 C61D 


2661 




BNE 2EQU2 


37 C61F 


5C 




I HOB 


38 C626 


EDC4 


ZEQU2 


STD ,U 


39 C622 


1 6FR2D 




LBRR NEXT 


\8 C625 


8230BC 




FOB $82, "8, - <+$88 


U C628 


C612 




FDB ZEQU-5 


\2 C62fl 


C62C 


ZLESS 


FDB ++2 


13 C62C 


8686 




LDR #$88 


*4 C62E 


R4C4 




RNDR , Ll 


15 C638 


2706 




BEQ ZLESS2 


16 C632 


4F 




CLRR 


\7 C633 


C601 




LDB #1 


t8 C635 


16FDF9 




LBRR PUTD 


19 C638 


5F 


ZLESS2 


CLRB 


58 C639 


16FDF5 




LBRR PUTD 


51 C63C 


854C454156 




FCB $85, "L, "E, -fl, U 


12 C641 


C5 




FCB "E+$88 


53 C642 


C625 




FDB ZLESS-5 


54 C644 


C646 


LEflUE 


FDB ++2 


55 C646 


ECE4 




LDD ,S 


56 C648 


ED62 




STD 2,S 


57 C64R 


16FR65 




LBRR NEXT 


58 C64D 


823ED2 




FCB $82, ->, "R+$80 


59 C656 


C63C 




FDB LERUE-8 


i.0 C652 


C654 


TOR 


FDB ++2 


■ 1 C654 


3766 




PULU D 


■2 C656 


3406 




PSHS D 


>3 C-658 


16F9F7 




LBRR NEXT 


A C65B 


8252BE 




FCB $82, "R, '>+$88 


•5 C65E 


C64D 




FDB TOR-5 


>6 C660 


C662 


FROMR 


FDB ++2 


:>7 C662 


3506 




PULS D 


:.8 C664 


3606 




PSHU D 


>9 C&66 


16F9E9 




LBRR NEXT 


'8 C669 


81D2 




FCB $81, "R+$80 


1 C66B 


C65B 




FDB FROMR-5 


'2 C66D 


C24D 


R 


FDB 1+2 


? 3 C66F 


344F5645D2 




FCB $34, "0, "U, "E, ' R+$i 
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C674 0669 FDB R-4 

75 C676 C678 OUER FDB ++2 

76 C67S EC42 LDD 2,U 

77 C67fl 16F9B5 LBRfl PUSHD 
7S C67D 8444524FD6 FCB $34, -"D, -R, 'Q, "P+*38 

0682 C66F FDB OUER-7 

C6S4 C686 DROP FDB ++2 

C686 3342 LEflU 2,U 

C68S 16F9C7 LBRfl NEXT 

C68B 8453574 ID© FCB $84, -'S, -'W, • fl, 'P+*8S 

0698 C67D FDB DROP-? 

0692 C694 SWAP FDB =+=+2 

C694 3716 PULU D,X 

0696 lEoi e:--:g d,x 

0698 3616 PSHU D..X 

C69R 16F9B5 LBRfl NEXT 

C69D 834455D0 FOB $83, -"D, -'U, -p+^SO 

C6fil C68B FDB SWRP-7 

C6H3 C6fl5 DUP FDB ++2 

C6fl5 ECC4 LDD ,U 

C6FI7 16F988 LBRfl PUSHD 

C6AFI 822BR1 FCB $82, -'+,-! +$80 

C6flD C69D FDB DUP-6 

C6flF C6B1 PSTORE FDB ++2 

C6B1 flECl LDX ,U++ 

C6B3 ECC1 LDD , U++ 

C6B5 E384 RDDD ,X 

C6B7 ED84 STD ,K 

C6B9 16F996 LBRfl NEXT 

C6BC 8100 FCB $81,"'*+$88 

C6BE C6RR FDB PSTORE-5 

C6C0 0602 RT FDB ++2 

C6C2 ECD4 LDD CUD 

C6C4 16FD6A LBRfl PUTD 

C6C7 824308 FCB $32, -'C, •''*+$80 

C6CR C6BC FDB FlT-4 

C6CC C6CE CRT FDB ++2 

C6CE E6D4 LDB CU3 

C6D8 4F CLRR 

C6D1 16FD5D LBRR PUTD 

C6D4 81R1 FCB $81,-"! +$80 

C6D6 0607 FDB CRT -5 

C6D8 C6DR STORE FDB *+2 

C6DR 3710 PULU X 

C6D0 3766 PULU D 

C6DE ED84 STD .-X 

C6E8 16F96F LBRfl NEXT 

C6E3 8243R1 FCB $82, -"C, - ! +$80 

C6E6 C6D4 FDB STORE-4 

C6E8 C6ER CSTORE FDB ++2 

C6ER 3718 PULU X 

C6EC 3706 PULU D 
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8726 C6EE 


E784 




STB 


J ft 


8727 C6F8 


16F95F 




LBRA NEXT 


87*23 C6F3 


873C425549 




FCB 


$87, " < , B, " U, ' I , "L, " 


8729 C6FA 


D3 




FCB 


" S+$38 


8738 C6FB 


C6E3 




FDB 


CSTORE-5 


8731 C6FD 


C84EC784C7 


BUILDS 


FDB 


DOCOL , ZERO , CON , SEM IS 


©732 C785 


85444F4553 




FCB 


$85, D, 0, E, "S 


8733 C7SR 


BE 




FCB 


• >+$S8 


8734 C78B 


C6F3 




FDB 


BUILDS-$OA 


8735 C78D 


C84EC668C9 


DOES 


FDB 


DOCOL, FROMR, LATEST 


8736 C713 


CR8EC6D8CB 




FDB 


PFA, STORE, PSCODE 


8737 C719 


3428 


DODOES 


FSHi 


1 1 

> I 


8733 C71B 


18RE82 




LDV 


«*-.* ft 


8739 C71E 


3884 


- 


LEA- 


■■. 4,X 


8746 C728 


3618 




PSHU X 


8741 C722 


16F92D 




LBRA NEXT 


8742 C725 


86544F4747 




FCB 


$86, 'T, '0, • G, G, L 


8743 C72B 


C5 




FCB 


-E+$88 


8744 C72C 


C785 




FDB 


DOES-S 


8745 C72E 


C84EC676C6 


TOGGLE 


FDB 


DOCOL, OUER, CAT, XOR 


©746 C736 


C692C6E8C8 




FDB 


SWAP, CSTORE, SEMIS 


8747 C73C 


C1BB 




FCB 


$C1, \S+$88 


8743 C73E 


C725 




FDB 


TOGGLE-9 


8749 C748 


C84ECA92CA 


SEMI 


FDB 


DOCOL , QCSP , COMP I L 


8758 C746 


C85BCB82 




FDB 


SEMIS, SMUDGE 


8751 C74A 


CADFC85B 




FDB 


LBRAK, SEMIS 


8752 C74E 


88 




FCB 


•too 


8755 C74F 


434F4E5354 




FCC: 


--CONSTANT 


8754 C756 


D4 




FCB 


T+$oU 


8755 C757 


C73C 




FDB 


SEN I -4 


8756 C759 


C84ECF3BCB 


CON 


FDB 


DOCOL, CREATE, SMUDGE 


8757 C75F 


C986CB48 




FDB 


COMMA, PSCODE 


8753 C763 


EC82 


DOCON 


LDD 


2,X 


8759 C765 


16FSCA 




LBRA PUSHD 


8768 C76S 


S3 




FCB 


$88 


8761 C769 


5641524941 




FCC 


.•UflRIABL^ 


8762 C778 


C5 




FCB 


-E+$S8 


8763 C771 


C74E 




FDB 


CGM-$8B 


©764 C773 


C84EC759CB 


(JAR 


FDB 


DOCOL, CON , PSCODE 


8765 C779 


3882 


DOUAR 


lea; 


.-' ~J V.-* 


8766 C77B 


361© 




PSHU X 


8767 C77D 


16F8D2 




LBRA NEXT 


8763 C738 


S1B8 




FCB 


$81, '6+$88 


8769 C7S2 


C768 




FDB 


UAR-$8B 


©776 C7S4 


C7638888 


ZERO 


FDB 


DOCON, 8 


©771 C7SS 


S1B1 




FCB 


$81, - l+$88 


8772 C78fl 


C788 




FDB 


ZERO-4 


8773 C7SC 


C7638881 


OHE 


FDB 


DOCON, 1 


©774 C798 


81B2 




FCB 


$81 , 2+$88 


8775 C792 


C7S8 




FDB 


ONE-4 


0776 C794 


C7638882 


TWO 


FDB 


DOCON, 2 


8777 C79S 


81 B3 




FCB 


$81 , '3+$88 



:15 



iFORTI 


H 1.0 COPVRIGHT 198 


1 T., 


T.ZIMMER & R.J 


. TRLBO 


C79P. 


C79Q 




FDB 


TWO-4 




C79C 


C7630003 


THREE 


FDB 


DOCON..3 




C7fl8 


8242CC 




FCB 


$82, "B, -'L+$38 




C7R3 


C798 




FDB 


THREE-4 




C7R5 


C7638828 


BL 


FDB 


DOCON , $28 




C7FI9 


8546495253 




FCB 


$85, •F,-I, -R, • 


•• .— 


C7flE 


D4 




FCB 


•"T+$88 




C7flF 


C7R0 




FDB 


BL-5 




C7B1 


C76389R8 


FIRST 


FDB 


DDCON,UIRBGN 




C7B5 


854C494D49 




FCB 


$85, ••L,-I,-M, • 


'I 


C7BR 


D4 




FCB 


-"T+$80 




C7BB 


C7R9 




FDB 


FIRST-S 




C7BD 


C04EC889C6 


LIMIT 


FDB 


DOCOL,BMRX,fiT. 


■ LIT 


C7C5 


8484C4F5C7 




FDB 


1628, STRR, FIRS 


>T 


C7CB 


C459C05B 




FDB 


PLUS, SEMIS 




C7CF 


84555345D2 




FCB 


$S4.. - U, ••£.,-"£, • 


" R+$80 


C7D4 


C7B5 




FDB 


LIMIT-8 




C7D6 


C84EC759CB 


USER 


FDB 


DOCGL , CON , PSCODE 


C7DC 


EC82 


DOUSER 


LDD 


2,X 




C7DE 


F386RR 




RDDt 


> UP 




C7E1 


16F84E 




LBRR PUSHD 




C7E4 


872B4F5249 




FCB 


$37, -'+, "O, "R, • 


• I, -G, 


C7EB 


CE 




FCB 


-' N+$80 




C7EC 


C7CF 




FDB 


USER-7 




C7EE 


CQ4EC1CRC0 


PORIG 


FDB 


DOCOL,LIT,PRGBGN 


C7F4 


C459C05B 




FDB 


PLUS, SEMIS 




C7F8 


835449C2 




FCB 


$83, "T, -I, "B+$88 


C7FC 


C7E4 




FDB 


PGRIG-$0R 




C7FE 


U7DCU01y 


TIB 


FDB 


DOUSER, $18 




C862 


84424D41D8 




FCB 


$84, 'B, -M, -fl, • 


"X+$80 


C8Q7 


C7F8 




FDB 


TIB-6 




C809 


C7DC0012 


BMflX 


FDB 


DOUSER, $12 




C80D 


8557494454 




FCB 


$85, ••U!,-I,-D, • 


"T 


C812 


C8 




FCB 


•"' H+$80 




C813 


C882 




FDB 


BMflX-7 




C815 


C7DC0020 


WIDTH 


FDB 


DOUSER, $20 




C819 


87 




FCB 


Hp■ , w , 1 




C81R 


5741524E49 




FCC 


^■UiflRNIN.'- 




US2Q 


U7 




FCB 


•' b+$y y 




CS21 


C88D 




FDB 


UHDTH-3 




C823 


C7DC8824 


WRRN 


FDB 


DOUSER, $24 




C827 


8546454E43 




FCB 


$85, • F,-E, -N, - 


C 


C82C 


C5 




FCB 


•"'E+$80 




C82D 


C819 




FDB 


WRRN-$0R 




C82F 


C7DCQ008 


FENCE 


FDB 


DOUSER, 8 




C833 


8244D0 




FCB 


$82, "D, "P+$38 




C836 


C827 




FDB 


FENCE-8 




C838 


C7DC088R 


DP 


FDB 


DOUSER, $6R 




CS3C 


88 




FCB 


$88 




C83D 


564F432D4C 




FCC 


--•iJOC-LIN.-- 




CS44 


CB 




FCB 


•"K+$80 




C845 


C833 




FDB 


DP-5 
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-'u.. 


"R+$8 


a 


$2C 






'F, 


F.. -S 


.. 
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883S C847 C7DC888C UOCLIH FDB DOUSER , $8C 

8831 C84B 83424CCB FOB $83, " B, -"L, "K+$38 

8832 C84F C83C FDB UOCLIH-$UB 

8833 C851 C7DC8826 BLK FDB DOUSER, $26 

8834 C855 8249CE FCB $82, " I, "H+$38 

8835 C858 C84B FDB BLK-6 

8836 C85H C7DC8828 IN FDB DOUSER, $28 

8837 C85E 834F55D4 FCB $83, '0, - U, 'T+$88 

8838 C862 C855 FDB IH-5 

6839 C864 C7DC802A OUT FDB DOUSER, $2fl 

8848 C868 835343D2 FCB $83, "S, 

8841 C8&C C85E FDB OUT -6 

8842 C86E C7DC882C SCR FDB DOUSER. 

8843 C872 864F464653 FCB $86, - 0, 

8844 C878 D4 FCB - T+$88 

8845 C879 C868 FDB SCR-6 

8846 C87B C7DC882E OFSET FDB DOUSER, $2E » 

8847 C87F S7434F4E54 FCB $87, ' C, - 0, 'H, - T, "E, 'X 

8848 C886 D4 FCB - T+$88 

8849 C887 C872 FDB OFSET-9 
8358 C389 C7DC8038 COHTXT FDB DOUSER, $38 

8851 C88D 8743555252 FCB $87, -C, "U, " R, " R, "E, "H 

8852 C894 D4 FCB "T+$38 

8853 C895 C87F FDB C0HTXT-$8A 

8854 C897 C7DC8832 CURENT FDB DOUSER, $32 

8855 C89B 8553544154 FCB $85, - S, "T, A, T 

8856 C8A8 C5 FCB • "E+$38 

8857 CSA1 C88D FDB CURENT-$8A 

8858 C8R3 C7DC8834 STATE FDB DOUSER, $34 

8859 C8A7 84424153C5 FCB $34, "B, ' A, • b, 'E+$88 
8868 C8AC C89B FDB STATE-o 

8861 CSftE C7DC8836 BASE FDB DULLER , $36 

8862 C8B2 834450CC FCB $83, -'D, 'P, "L+$88 

8863 C3B6 C8A7 FDB BASE-7 

8864 C8B8 C7DC8838 DPL FDB D0UbER,$38 
0865 C8BC 83464CC4 FCB $33, F, L, "D+$S8 
8366 CSC8 C3B2 FDB DPL-6 

8867 C8C2 C7DC883A FLD FDB DOUSER, $3A 

8868 C8C6 S34353D8 FCB $83, 'U, b, - P+$8tf 

8869 C8CA C8BC FDB FLD-6 

8878 C8CC C7DC883C CSP FDB DOUSER, $3C 

8871 C8D8 8252A3 FCB $82, " R, • #+$88 

8872 C8D3 C8C6 FDB CSP-6 
0873 C8D5 C7DC883E RNUM FDB DOUSER, $3E 

8874 C8D9 83484CC4 FCB $83, "H, ■ L, 'D+$88 

8875 C3DD C8D8 FDB RNUM-5 

8876 C8DF C7DC8848 HLD FDB DOUSER, $48 

8877 CSE3 84484552C5 FCB $84, -"H, ' E, R, ' E+$38 
0878 C8E8 C8D9 FDB HLD-6 

8879 C8EA C84EC838C6 HERE FDB DOCOL, DP, AT, SEMIS 
8888 C8F2 85414C4C4F FCB $85, -'A, 'L, - L, 
8881 C8F7 D4 FCB -T+$88 
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C8FS 


C8E3 




FDB 


HERE-7 


CSFfl 


C04EC838C6 


ALLOT 


FDB 


DOCOL, DP, PSTORE, SEMI 


C902 


SlflC 




FCB 


$81.. - ', +$80 


C904 


C8F2 




FDB 


ALLOT-8 


C9S6 


C04EC8ERC6 


COMMA 


FDB 


DOCOL, HERE, STORE 


C90C 


C794C8FAC0 




FDB 


TWO, ALLOT, SEMIS 


C912 


8243RC 




FCB 


$82, -C, - , +$80 


C915 


C902 




FDB 


COMMA-4 


C917 


C84EC8ERC6 


CCOMM 


FDB 


DOCOL , HERE , CSTORE 


C91D 


C7SCC8FflC0 




FDB 


ONE, ALLOT, SEMIS 


C923 


81RD 




FCB 


$81, •'-+$80 


C925 


C912 




FDB 


CCOMM-5 


C927 


C84EC484 


SUB 


FDB 


DOCOL, MINUS 


C92B 


C459C05B 




FDB 


PLUS, SEMIS 


C92F 


31BD 




FCB 


$81, ••=+$80 


C931 


C923 




FDB 


SUB-4 


C933 


C04EC927C6 


EQUAL 


FDB 


DOCOL , SUB , ZEQU , SEM I S 


C93B 


81 BE 




FCB 


$81, •>+$80 


C93D 


C92F 




FDB 


EQUAL-4 


C93F 


C84EC692C5 


GREAT 


FDB 


DOCOL , SWAP , LESS , SEM I 


C947 


8553584143 




FCB 


$85, -S, "P, -A, -C 


C94C 


C5 




FCB 


•'E+$80 


C94D 


C93B 




FDB 


GREAT-4 


C94F 


C04EC7A5C0 


SPACE 


FDB 


DOCOL , BL , EM I T , SEM I S 


C957 


834D49CE 




FCB 


$83, ••M,-I,-N+$88 


C95B 


C947 




FDB 


SPACE-8 


C95D 


C04EC676C6 


MIN 


FDB 


DOCOL, OUER, OUER 


C963 


C93FC1E6 




FDB 


GREAT, ZBR AN 


C967 


8004C692 




FDB 


MIN2-+,SWAP 


C96B 


C684C05B 


MIN2 


FDB 


DROP, SEMIS 


C96F 


834D41DS 




FCB 


$83, "M, "A, •'X+$88 


C973 


C957 




FDB 


MIH-6 


C975 


C04EC676C6 


MR)'-: 


FDB 


DOCOL, OUER, OUER, LESS 


C97D 


C1E6 




FDB 


ZBRAN 


C97F 


0004C692 




FDB 


MAX2-+..SWAP 


C983 


C684C05B 


MAX2 


FDB 


DROP, SEMIS 


C9S7 


342D4455D0 




FCB 


$84, ■ -, -D, -'LI, •'P+$88 


C98C 


C96F 




FDB 


MRX-6 


C98E 


C04EC6R3C1 


DDUP 


FDB 


DOCOL, DUP..ZBRRN 


C994 


0004C6R3 




FDB 


DDUP2-+,DUP 


C998 


C05B 


DDUP2 


FDB 


SEMIS 


C99fl 


83 




FCB 




C99B 


5452415645 




FCC 


•TRACERS*' 


C9R2 


C5 




FCB 


•"E+$80 


C9R3 


C987 




FDB 


DDUP-7 


C9fl5 


C04EC692 


TRAU 


FDB 


DOCOL, SWAP 


C9R9 


C676C459C1 


TRAU2 


FDB 


OUER, PLUS, LIT, $7F 


C9B1 


C676C6CCC5 




FDB 


OUER, CRT, LESS, ZBRAN 


C9B9 


FFF0 




FDB 


TRAU2-+ 


C9BB 


C692C684C0 




FDB 


SWAP, DROP, SEMIS 


C9C1 


36 




FCB 


$86 


C9C2 


4C4 1544553 




FCC 


/LATEST- 
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C9C7 

C9C8 

C9CR 

C9D6 

C9D4 

C9DS 

C9DR 

C9E0 

C9E4 

C9E8 

C9ER 

C9F2 

C9F6 

C9F3 

C9FE 

CR06 

CR83 

CR8C 

CR8E 

CR18 

CfilC 

CR21 

CR23 

CR2B 

CR2D 

CR2E 

CR33 

CR34 

CR36 

CR3C 

CR42 

CR44 

Cfl46 

CR48 

CR49 

CR4D 

CR4E 

CR50 

CR58 

CR60 

CflSl 

CR65 

CR66 

CR68 

CR78 

CR76 

CR77 

CR7C 

CR7D 

CR7F 

CR87 

CflSB 



D4 

C99R 

C84EC897C6 

C6CQC85B 

S34C46C1 

C9C1 

C04EC1CR00 

C927C85B 

834346C1 

C9D4 

C04EC794C9 

834E46C1 

C9E4 

C04EC1CR08 

C927C78CC4 

C65B 

835046C1 

C9F2 

C04EC78CC9 

C459C85B 

84214353D8 

CR08 

C04EC19EC8 

C85B 

86 

3F4552524F 

D2 

CfllC 

C04EC692C1 

0008CEBBC1 

0004 

C684 

C85B 

85 

3F434F4D 

D8 

CR2D 

C04EC8R3C6 

ClCR0011Cfl 

85 

3F455845 

C3 

CR48 

C84EC8R3C6 

0012CR36C0 

86 

3F504 14952 

D3 

CR60 

C04EC927C1 

CR36C05B 

843F4353D0 



LFR 



CFfl 



HFR 



PFR 



SCSP 



FOB 
FDB 
LfiTEST FDB 
FDB 
FCB 
FDB 
FDB 
FDB 
FCB 
FDB 
FDB 
FCB 
FDB 
FDB 
FDB 
FDB 
FCB 
FDB 
FDB 
FDB 
FCB 
FDB 
FDB 
FDB 
FCB 
FCC 
FCB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FCB 
FCC 
FCB 
FDB 
FDB 
FDB 
FCB 
FCC 
FCB 
FDB 
FDB 
FDB 
FCB 
FCC 
FCB 
FDB 
FDB 
FDB 
FCB 



QERR 



QERR2 
QERR3 



QCOMP 



QEttEC 



QPRIRS 



-'T+$88 
TRfiU--$8B 
DOCOL, CURENT..RT 
RT, SEMIS 

$83, "L, -'F.. -'R+$88 
LRTEST-9 
D0C0L,LIT,4 
SUB, SEMIS 
$83, -C, "F, -'R+$80. 
LFR-6 

DOCOL .. TWO , SUB , SEM I S 
$83, M, ' F, -'fl+$S0 
CFR-6 

DOCOL, LIT, 5 
SUB, ONE, MINUS, TRRU 
SEMIS 

$83, "P, "F, "fi+$88 
NFfl-6 

DOCOL, ONE, TRRU, LIT, 5 
PLUS, SEMIS 
$84, -' ! , -'C, -'S, -'P+$80 
PFfl-6 

DOCOL, SPRT, CSP, STORE 
SEMIS 
$86 

''?ERRO.- 
•" R+$80 
SCSP-7 

DOCOL, SUIRP..ZBRRM 
UERR2-+, ERROR, BRRN 
QERR3-* 
DROP 
SEMIS 
$85 

'•-7COM-- 
•" P+$88 
QERR -9 

DOCOL, STRTE, RT, ZEQU 
LIT,* 11, QERR, SEM IS 
$85 

''?EXE-'- 

"C+$80 

QCOMP-8 

DOCOL , STATE , RT , L I T 
$12, QERR, SEMIS 
$36 

-•••?PfiIR,-- 

"S+$80 

QEKEC-S 

DOCOL, SUB, LIT, $13 

QERR, SEMIS 

$84, -'?, "C, -S, •'P+$80 
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Cfl90 

CR92 

CR9C 

CARS 

CRH4 

CARS 

CflflC 

CARD 

CAAF 

CAB? 

CflBB 

CflBF 

CRC0 

CAC6 

CAC7 

CAC9 

CflCF 

CRD7 

CRDB 

UHDD 

CADF 

CflE5 

CRE9 

CAEB 

CflED 

CAF3 

CAF9 

CRFA 

CAFF 

CB0O 

CB62 

CB8A 

CB0E 

CB12 

CB14 

CB1R 

CB20 

CB21 

CB27 

CB28 

CB2A 

CB38 

CB36 

CB37 

CB3D 

CB3E 

CB40 

CB46 

CB4E 

CB4F 

CB53 

CB54 



UH7b 

C84EC19EC8 

C1CA0014 

CA36C85B 

oo 

3F4C4F4144 

C7 

CflBB 

CB4EC851C6 

C1CA8816 

CA36C05B 

87 

434F4D5849 

C5 

CRR4 

C04ECR5QC6 

C6A3C4CAC6 

C986C85B 

C1DB 

CflBF 

C04EC784C8 

C6DSCS5B 

81DD 

CflDB 

CS4EC1CA00 

C8A3C6D8C0 

86 

534D554447 

C5 

CAE9 

C84EC9CAC1 

C72EC05B 

834845D8 

CRF9 

C84EC1CA80 

C8AEC6D8C0 

87 

444543494D 

CC 

CB8E 

C04EC1CA00 

C8AEC6D8C0 

87 

233B434F44 

A9 

CB28 

C04EC66QC9 

CR0EC9EAC6 

C5 

3B434F44 

C5 

CB36 



FDB 

QCSP FDB 
FDB 
FDB 
FCB 
FCC 
FCB 
FDB 

QLOAD FDB 
FDB 
FDB 
FCB 
FCC 
FCB 
FDB 

COMPIL FDB 
FDB 
FDB 
FCB 
FDB 

LBRAK FDB 
FDB 
FCB 
FDB 

RBRAK FDB 
FDB 
FCB 
FCC 
FCB 
FDB 

SMUDGE FDB 
FDB 
FCB 
FDB 

HEX FDB 
FDB 
FCB 
FCC 
FCB 
FDB 

DEC FDB 
FDB 
FCB 
FCC 
FCB 
FDB 

PSCODE FDB 
FDB 
FCB 
FCC 
FCB 
FDB 



QPflIRS-9 

DOCOL , SPAT , CSP , AT , SUB 

LIT, $14 

QERR, SEMIS 

$88 

^•?LOADIN,'- 

-' G+$88 

QCSP-7 

DOCOL, BLK, AT, ZEQU 

LIT, $16 

QERR, SEMIS 

$y >- 

.••COMPIL-- 

-"E+$80 

QLOAD- *0B 

DOCOL.. QCOMP, FROMR 

DUP,TWOP,TOR,AT 

COMMA, SEMIS 

$C1, 'C+$S8 

COMPIL-*@fl 

DOCOL, ZERO, STATE 

STORE, SEMIS 

$81,-3+$80 

LBRAK-4 

DOCOL, LIT, $C8 

STATE, STORE, SEMIS 

$86 

/SMUDGE 

•'E+$80 

RBRAK-4 

DOCOL , LATEST , L I T , $20 

TOGGLE, SEMIS 

$83, -H, "E,"X+$80 

SMUDGE-9 

DOCOL, LIT, 16 

BASE, STORE, SEMIS 

•DECIMfV 

-"L+$8ti 

HEX-6 

DOCOL, LIT, 10 

BASE, STORE, SEMIS 

$87 

*'"<.; CODE*'' 

•" :> +$88 

DEC-$0A 

DOCOL, FROMR, LATEST 

PFfl, CFfl, STORE, SEMIS 

$C5 

x-iCOD'-' 

-' E+$88 

PSC0DE-$8A 



:OL0RF0RTH 1.8 COPYRIGHT 198 


1 T... 


T.Z INNER & R..J.TRLBOT 


638 


CB56 


C04ECR92CR 


SEMIC 


FDB 


DOCOL .. QCSP .. COMP I L 


1 039 


CB5C 


CB48CB82CR 




FDB 


PSCODE, SMUDGE, LBRflK 


. 048 


CB62 


CC3S 




FDB 


QSTRCK 


041 


CB64 


865CC05B 




FDB 


ASSEM-RRM+BR AM , SEM I S 


. ©42 


CB68 


85 




FCB 




. 043 


CB69 


434F554E 




FCC 


'-COLIN-- 


044 


CB6D 


D4 




FCB 


'T+*88 


045 


CB6E 


CB4E 




FDB 


SEMIC-8 


L 046 


CB70 


C84EC6A3C4 


COUNT 


FDB 


DOCOL , DUP , ONEP , SWAP 


047 


CB78 


C6CCC05B 




FDB 


CRT, SEMIS 


048 


CB7C 


84545958C5 




FCB 


$84,-T,--V, •p,-E+*88 


049 


CB81 


CB68 




FDB 


COUMT-8 


85Q 


CB83 


C04EC98EC1 


TS'PE 


FDB 


DOCOL, DDUP,ZBRRH 


851 


CB89 


8018C676C4 




FDB 


TVPE3-+, OUER, PLUS 


852 


CB8F 


C692C23C 




FDB 


SUIRP,XDO 


053 


CB93 


C24BC6CCC0 


TVPE2 


FDB 


I,CAT,EMIT,XLOOP 


054 


CB9B 


FFF8C1DR 




FDB 


TVPE2-+,BRAN 


055 


CB9F 


8804 




FDB 


TVPE4-+ 


l 056. 


CBfil 


C684 


TS'PE3 


FDB 


DROP 


L057 


CBR3 


C85B 


TVPE4 


FDB 


SEMIS 


858 


CBR5 


89 




FCB 


$89 


859 


CBfi6 


2D54524149 




FCC 


/-TRAILING 


1 868 


CBflE 


C7 




FCB 


"G+$30 


L861 


CBflF 


CB7C 




FDB 


TVPE-7 


862 


CBB1 


C84EC6R3C7 


DTRRIL 


FDB 


DOCOL, DUP, ZERO, XDO 


863 


CBB9 


C676C676C4 


DTRRL2 


FDB 


OUER, OUER, PLUS, ONE 


064 


CBC1 


C927C6CCC7 




FDB 


SUB, CRT, BL, SUB, ZBRRN 


. 065 


CBCE 


8888C644C1 




FDB 


DTRAL3-+, LERUE, BRRN 


L 066 


CBD1 


8886 




FDB 


DTRRL4-+ 


L067 


CBD3 


C78CC927 


DTRRL3 


FDB 


ONE, SUB 


.068 


CBD7 


C283 


DTRRL4 


FDB 


KLOOP 


869 


CBD9 


FFE8 




FDB 


DTRAL2-+ 


l ©78 


CBDB 


C85B 




FDB 


SEMIS 


871 


CBDD 


C4282E22R9 




FCB 


$C4, "'•:, •'. , •", - >+$88 


872 


CBE2 


CBR5 




FDB 


DTRAIL-$8C 


873 


CBE4 


C84EC66DCB 


PDOTQ 


FDB 


DOCOL , R, COUNT , DUP 


1074 


CBEC 


C4BBC668C4 




FDB 


ONEP, FROMR, PLUS, TOR 


.075 


CBF4 


CB83C05B 




FDB 


TYPE, SEM IS 


076 


CBF8 


C22ER2 




FCB 


$C2, •". , -'"+$88 


877 


CBFB 


CBDD 




FDB 


PDOTQ-7 


878 


CBFD 


C04EC1CRO0 


DOTQ 


FDB 


DOCOL, LIT, $22 


879 


CC83 


CSR3C6C8C1 




FDB 


STATE, RT, ZBRRN 


088 


CC89 


8814 




FDB 


DOTQ1-* 


831 


CC8B 


CRC9CBE4CD 




FDB 


COMPIL, PDOTQ, WORD 


882 


ecu 


C8ERC6CCC4 




FDB 


HERE, CRT, ONEP, ALLOT 


.833 


CC19 


C1DR 




FDB 


BRRN 


884 


CC1B 


008R 




FDB 


D0TQ2-+ 


885 


CC1D 


CD9DC8ERCB 


DOTQ1 


FDB 


WORD, HERE, COUNT, TS'PE 


836 


CC25 


C85B 


D0TQ2 


FDB 


SEMIS 


887 


CC27 


86 




FCB 


$86 


038 


CC2S 


3F53544143 




FCC 


/?STAC>- 


039 


CC2D 


CB 




FCB 


"K+*S8 



PAGE 21 OF 46 



COLORFORTH 1.0 COPYRIGHT 1981 T.J.ZIMMER & R.J. TALBOT 



PAGE 



OF 46 



1 090 


CC2E 


CBFS 






FDB 


DOTQ-5 


1091 


CC30 


C04EC19EC1 


QE 


;tack 


FDB 


DOCOL, SPAT, LIT 


1092 


CC36 


001AC7EEC6 






FDB 


S I N I T-PRGBGN , POR I G , AT 


1 093 


CC3C 


C692C5C1C7 






FDB 


SUAP, LESS, ONE, QERR 


1094 


CC44 


C1CA0O74C6 






FDB 


LIT,*74,AT MEMEND 


1095 


CC4A 


C8EAC1CR00 






FDB 


HERE, LIT, *88 


1096 


CC50 


C459C5C1C? 






FDB 


PLUS, LESS, TWO, QERR 


109? 


CC5S. 


C05B 






FDB 


SEMIS 


1093 


CC5R 


S3524FD4 






FCB 


$83, -R, \G, -"T+tSe 


1 099 


CC5E 


CC27 






FDB 


QSTACK-9 


1100 


CC60 


C04EC652C6 


ROT 


FDB 


DOCOL, TOR, SWAP, FROMR 


1101 


CC6S 


C692C05B 






FDB 


SWAP, SEN IS 


1102 


CC6C 


36 






FCB 


$86 


1103 


CC6D 


4553504543 






FCC 


^EXPEC/ - 


1184 


CC72 


D4 






FCB 


"T+*S0 


1105 


CC73 


CC5A 






FDB 


ROT-6 


1106 


CC75 


C04EC676C4 


E* 


PECT 


FDB 


DOCOL, OUER, PLUS, OUER 


110? 


CC7D 


C23C 






FDB 


XDG 


1103 


CC7F 


C0D6C6A3C1 


E> 


=:PEC2 


FDB 


KEV,DUP,LIT,08 


1 1 09 


CCS7 


C933C1E6 






FDB 


EQUAL, ZBR AH 


1118 


CC8B 


0020C6S4C1 






FDB 


EXPEC3-+, DROP, LIT 


1111 


CC91 


00OSC676C2 






FDB 


08, OUER, I 


1112 


CC97 


C933C6R3C6 






FDB 


EQUAL, DUP, FROMR, TWO 


1113 


CC9F 


C927C459C6 






FDB 


SUB, PLUS, TOR, SUB, BRAN 


1114 


CCR9 


0023 






FDB 


EXPEC6-+ 


1115 


CCflB 


C6A3C1CA00 


E> 


4PEC3 


FDB 


DUP,LIT,*8D 


1116 


CCB1 


C933C1E6 






FDB 


EQUAL, ZBRAN 


1117 


CCB5 


000E 






FDB 


EXPEC4-* 


1118 


CCB7 


C644C684C7 






FDB 


LEAUE , DROP , BL , ZERO 


1119 


CCBF 


C1DA 






FDB 


BRAN 


1120 


CCC1 


0004 






FDB 


EXPEC5-* 


1121 


CCC3 


C6A3 


E> 


<PEC4 


FDB 


DUP 


1122 


CCC5 


C24BC6E3C7 


Ei 


■=:pec.5 


FDB 


I , CST ORE, ZERO, I , OHEP 


1123 


CCCF 


C6DS 






FDB 


STORE 


1124 


CCD1 


C09DC203 


E> 


=:pec6 


FDB 


EMIT,XLOOP 


1125 


CCD5 


FFAR 






FDB 


EXPEC2-+ 


1126 


CCC>7 


C6S4C05B 






FDB 


DROP, SEMIS 


1127 


CCDB 


35 






FCB 


$85 


1128 


CCDC 


51554552 






FCC 


,'QUER^ 


1129 


CCE0 


D9 






FCB 


-V+$80 


1138 


CCE1 


CC6C 






FDB 


EXPECT-9 


1131 


CCE3 


C04EC7FEC6 


QUERV 


FDB 


DOCOL, TIB, AT, LIT, 30 


1132 


CCED 


CC75C7S4CS 






FDB 


EXPECT, ZERO, IN 


1133 


CCF3 


C6D3C05B 






FDB 


STORE, SEMIS 


1134 


CCF7 


CIS© 






FCB 


$C1,*30 


1135 


CCF9 


CCDB 






FDB 


QUERV-8 


1136 


CCFB 


C04EC351C6 


HULL 


FDB 


DOCOL , BLK , FiT , ZBRAN 


1137 


CD03 


0022 






FDB 


NULL2-* 


1138 


CD05 


C78CC851C6 






FDB 


OHE, BLK, PSTORE, ZERO 


1139 


CD0D 


C85flC6D3C8 






FDB 


IN, STORE, BLK, AT 


1146 


CD 15 


C617C1E6 






FDB 


ZEQU, ZBRAN 


1141 


CD 19 


0003 






FDB 


NULL1-* 



COLORFORTH 1.0 COPVRIGHT 19S1 T.-J.ZIMMER & R.J. TALBOT 



PAGE 



OF 46 



CD IB 


CA68C660C6 




FDB 


CD21 


ClDfl 


NULL1 


FDB 


CD23 


0006 




FDB 


CD25 


C668C6S4 


NULL2 


FDB 


CD29 


C65B 


HULL3 


FDB 


CD2B 


S446494CCC 




FCB 


CD38 


CCF7 




FDB 


CD32 


C64EC692C6 


FILL 


FDB 


CD3A 


C6E8C6A3C4 




FDB 


CD42 


C78CC927C3 




FDB 


CD4H 


8545524153 




FCB 


CD4F 


C5 




FCB 


CD58 


CD2B 




FDB 


CD52 


C04EC784CD 


ERASE 


FDB 


CD5A 


86424C414E 




FCB 


CD60 


D3 




FCB 


CD61 


CD4A 




FDB 


CD63 


C04EC7A5CD 


BLANKS 


FDB 


CD6B 


84484F4CC4 




FCB 


CD70 


CDSfl 




FDB 


CD72 


C04EC1CAFF 


HOLD 


FDB 


CDTfl 


C6AFC8DFC6 




FDB 


CD80 


C6E8C05B 




FDB 


CD84 


83584 1C4 




FCB 


CD8S 


CD6B 




FDB 


CDSfl 


C04EC8EflCl 


PAD 


FDB 


CD92 


C459C05B 




FDB 


CD96 


84574F52C4 




FCB 


CD9B 


CD84 




FDB 


CD9D 


C64EC851C6 


WORD 


FDB 


CDR5 


0O0CC851C6 




FDB 


CDAB 


0638 




FDB 


CDflD 


ClDfl 




FDB 


CDAF 


0006 




FDB 


CDBl 


C7FEC6C0 


W0RD2 


FDB 


CDB5 


C85flC6C0C4 


W0RD3 


FDB 


CDBD 


C2DDC8EAC1 




FDB 


CDC5 


CD63C85AC6 




FDB 


CDCD 


C927C652C6 




FDB 


CDD? 


C459C8EAC4 




FDB 


CDDF 


C31AC05B 




FDB 


CDE3 


S8 




FCB 


CDE4 


284E554D42 




FCC 


CDEB 


A9 




FCB 


CDEC 


CD96 




FDB 


CDEE 


CQ4E 


PNUMB 


FDB 


CDF0 


C4BBC6A3C6 


PNUMB2 


FDB 


CDFA 


C6C0C25AC1 




FDB 


CE80 


002CC692C8 




FDB 


CESS 


C3A3C684CC 




FDB 


CE10 


C6C0C3A3C4 




FDB 


CE1S 


C6C0C4BBC1 




FDB 



L, •"L+$88 

TOR.. GOER 
■ONEP,FROMR 



QEttEC,FROMR,DROP 

BRAN 

HULL3-* 

FRONR,DROP 

SEMIS 

$84, -F, -I, 

HULL-4 

DOCOL, SWAP 

CSTORE,DUP 

ONE, SUB, CMOUE, SEMIS 

$85, -'E, -'R, -A, -S 

-' E+$80 

FILL-7 

DOCOL , ZERO ..FILL, SEN I S 

$36, -B, ■'L,'A,-N, -K 

•'S+*80 

ERASE-8 

DOCOL , BL ,FILL , SEM I S 

$84, "H, "0, -L, 'D+$30 

BLANKS-9 

D0C0L,LIT,-1,HLD 

PSTORE,HLD,AT 

CSTORE, SEMIS 

$83, "P, 'A, -'D+$80 

HOLD-7 

DOCOL , HERE , L I T , $44 

PLUS, SEMIS 

$34, -UI,-0, -R, •D+$S0 

PAD-6 

DOCOL , BLK , AT , ZBRAN 

W0RD2-+,BLK,AT 

BLOCK-RAM+BRAM 

BRAM 

W0RD3-+ 

TIB, AT 

IM, AT, PLUS, SWAP 

ENCLOS , HERE , L I T , $34 

BLANKS, IN, PSTORE, OUER 

SUB, TOR, R, HERE, CSTORE 

PLUS, HERE, OHEP, FROMR 

CMOUE, SEMIS 

$88 

.'< NUMBERS 

•" > +$80 

WORD-7 

DOCOL 

ONEP, DUP, TOR, CRT, BASE 

AT, DIGIT, ZBR AH 

PNUMB4-+, SWAP, BASE, AT 

USTAR, DROP, ROT, BASE 

AT, USTAR, DPLUS, DPL 

AT, ONEP, ZBR AN 



:OL0F 


?FORTf 


H 1.0 COPVRIGHT 198 


1 -T.. 


T.ZIMMER & R.J. TALBOT 


194 


CE1E 


0808C78CC8 




FDB 


PNUMB3-* , ONE , DPL 


195 


CE24 


C6RF 




FDB 


PSTORE 


1 96 


CE26 


C668C1DR 


PHUMB3 


FDB 


FROMR,BRRN 


19? 


CE2R 


FFC6 




FDB 


PNUMB2-* 


198 


CE2C 


C660C65B 


PMUMB4 


FDB 


FRONR, SEMIS 


193 


CE36 


864E554D42 




FCB 


$36, ••H,-U,-M, ••B,-E 


208 


CE36 


D2 




FCB 


"R+$88 


261 


CE37 


CDE3 




FDB 


PNUMB-$8B 


282 


CE39 


C04EC784C? 


NUMB 


FDB 


DOCOL , ZERO, ZERO, ROT 


263 


CE41 


C6R3C4BBC6 




FDB 


DUP , ONEP , CRT , L I T , *2D 


204 


CE4B 


C933C6R3C6 




FDB 


EQUAL, DUP, TOR, PLUS 


205 


CE53 


C1CRFFFF 




FDB 


LIT,-1 


206 


CE5? 


C8BSC6DSCD 


NUMB1 


FDB 


DPL, STORE, PNUMB, DUP 


207 


CE5F 


C6CCC7R5C9 




FDB 


CRT,BL,SUB,ZBRRN 


293 


CE67 


0816 




FDB 


NUMB2-* 


209 


CE69 


C6R3C6CCC1 




FDB 


DUP , CRT , L I T , $2E , SUB 


216 


CE73 


C784CR36C? 




FDB 


ZERO, QERR, ZERO, BRAN 


211 


CE?B 


FFDC 




FDB 


NUMB1-* 


212 


CE7D 


C684C660C1 


HUMB2 


FDB 


DROP, FRONR, ZBRRH 


213 


CE83 


8884C49D 




FDB 


NUMB3-+,DMINUS 


214 


CE87 


C05B 


NUMB3 


FDB 


SEMIS 


215 


CES9 


852D46494E 




FCB 


$85, •-, •F,-"I, 'H 


216 


CE8E 


C4 




FCB 


'D+$38 


21? 


CE8F 


CE3S 




FDB 


MUMB-9 


213 


CE91 


C04EC7R5CD 


DFIND 


FDB 


DOCOL , BL , WORD , HERE 


219 


CE99 


C889C6C0C6 




FDB 


CONTXT , RT , RT , PF I MD 


220 


CER1 


C6R3C617C1 




FDB 


DUP, ZEQU, ZBRRH 


221 


CER7 


008RC684C8 




FDB 


DF I ND2-* , DROP , HERE 


222 


CEflD 


C9CRC28D 




FDB 


LRTEST,PFIND 


223 


CEB1 


C85B 


DFIND2 


FDB 


SEMIS 


224 


CEB3 


S54552524F 




FCB 


$85, -E,-R,'R, -0 


225 


CEB8 


D2 




FCB 


•"R+*88 


226 


CEB9 


CE89 




FDB 


DFIHD-8 


22? 


CEBB 


C84EC823C6 


ERROR 


FDB 


DOCOL , WARN , RT , ZLESS 


228 


CEC3 


C1E6 




FDB 


ZBRRH 


229 


CEC5 


6804 




FDB 


ERR0R2-+ 


238 


CEC7 


062R 




FDB 


PRBORT-RRM+BRRM 


231 


CEC9 


CSERCB70CB 


ERROR2 


FDB 


HERE, COUNT, TVPE, PDOTQ 


232 


CED1 


043U2D3F20 




FCB 


4,-<, ••-,-?, 32 


233 


CED6 


C1CR0UEEC7 




FDB 


LIT,238,OHE,T0HE 


234 


CEDE 


D150C1RD 




FDB 


MESS,SPSTOR 


235 


CEE2 


D0REC05B 




FDB 


QUIT, SEMIS 


236 


CEE6 


834944RE 




FCB 


$83, -"I, -D, •-.+$88 


237 


CEEfl 


CEB3 




FDB 


ERROR-8 


238 


CEEC 


C84ECD3RC1 


IDDOT 


FDB 


DOCOL, PRD, LIT, 32 


239 


CEF4 


C1CR885F 




FDB 


LIT,$5F 


248 


CEFS 


CD32C6R3CR 




FDB 


FILL, DUP, PFR, LFfl, OUER 


241 


CF02 


C927CD8RC6 




FDB 


SUB, PRD, SWRP, CMOUE 


242 


CF8R 


CD8RCB70C1 




FDB 


PRD , COUNT , L I T , 3 1 , AND 


243 


CF14 


C676C676C4 




FDB 


OUER, OUER, PLUS 


244 


CF1R 


C78CC927C1 




FDB 


OME,SUB,LIT 


245 


CF2Q 


007FC676C6 




FDB 


$7F , OUER , CRT , AND , SWRP 



PRGE 24 OF 46 



COLORFORTH 1.0 COPYRIGHT 1931 T.J.ZIMMER & R.J.TALBOT 



PAGE 



5 OF 46 



L246 


CF2A 


C6ESCB83 




FDB 


CSTORE,T'v , PE 


1247 


CF2E 


C94FC05B 




FDB 


SPACE, SEMIS 


124S 


CF32 


8643524541 




FCB 


$86, -C, -'R, -E, -A, "T 


1249 


CF33 


C5 




FOB 


-' E+*80 


1258 


CF39 


CEE6 




FDB 


IDDUT-6 


1251 


CF3B 


C04ECE91C1 


CREATE 


FDB 


DOCOL, DFIND, ZBRAN 


1252 


CF41 


O014C684CB 




FDB 


CREAT2-+, DROP, PDOTQ 


1253 


CF47 


07 




FCB 


_, 


1254 


CF4S 


5245444546 




FCC 


,-REDEF: s 


1255 


CF4F 


C9FSCEECC9 




FDB 


HFA, IDDOT..SPACE 


1256 


CF55 


C8EflC6fl3C6 


CRERT2 


FDB 


HERE, DUP, CfiT, WIDTH, AT 


1 257 


CF5F 


C95DC4BBC8 




FDB 


MIN..ONEP, ALLOT, DUP 


1258 


CF67 


C1CR00A0 




FDB 


LIT,* A© 


1259 


CF6B 


C72EC8EAC7 




FDB 


TOGGLE, HERE , ONE , SUB 


1268 


CF73 


C1CA0080 




FDB 


LIT,*80 


1261 


CF77 


C72EC9CAC9 




FDB 


TOGGLE, LATEST, COMMA 


1 262 


CF7D 


C897C6C0C6 




FDB 


CURENT , AT , STORE , HERE 


1263 


CF85 


C4CAC906C0 




FDB 


TWOP, COMMA, SEMIS 


1264 


CF8B 


C95B434F4D 




FCB 


$C9, •-[, •C,-0,'M, -P, -I 


1265 


CF92 


4C45DD 




FCB 


-l,-'e, -:n-*80 


1266 


CF95 


CF32 




FDB 


CREATE-9 


1267 


CF97 


C04ECE9 1 C6 


BCOMP 


FDB 


DOCOL , DF I ND , ZEQU , ZERO 


1263 


CF9F 


CR36C684C9 




FDB 


QERR, DROP, CFA, COMMA 


1269 


CFA7 


C05B 




FDB 


SEMIS 


127Q 


CFA9 


874C495445 




FCB 


*87, ••L,-I, 'T,-E, -R, -A 


1271 


CFB© 


CC 




FCB 


-' L+$S0 


1272 


CFB1 


CF8B 




FDB 


BCOMP-$0C 


1273 


CFB3 


C04EC8fi3C6 


LITER 


FDB 


DOCOL, STATE, AT, ZBRAN 


1274 


CFBB 


0008CAC9C1 




FDB 


L I TER2-+ , COMP I L , L I T 


1275 


CFCi 


C906 




FDB 


COMMA 


1276 


CFC3 


C05B 


LITER2 


FDB 


SEMIS 


1277 


CFC5 


S8444C4954 




FCB 


$83, ••D,-L,-I, -T, -E, -R 


1278 


CFCC 


4 ICC 




FCB 


-A, -'L+$S0 


1279 


CFCE 


CFA9 




FDB 


LITER- 10 


123© 


CFDS 


C04EC8FI3C6 


DLITER 


FDB 


DOCOL, STATE, AT, ZBRAN 


1281 


CFDS 


0008C692CF 




FDB 


DL I TE2-+ , SWAP , L I TER 


1282 


CFDE 


CFB3 




FDB 


LITER 


1233 


CFES 


C05B 


DLITE2 


FDB 


SEMIS 


1284 


CFE2 


89494E5445 




FCB 


$39,--I,-N, 'T,-E,"R,'P 


1235 


CFE9 


5245D4 




FCB 


•'R,-E,-T+*S0 


1286 


CFEC 


CFC5 




FDB 


DLITER-SOB 


1287 


CFEE 


C04E 


INTERP 


FDB 


DOCOL 


12:38 


CFFO 


CE91C1E6 


INTER2 


FDB 


DFIND, ZBRRN 


1289 


CFF4 


081EC8A3C6 




FDB 


INTERS-*, STATE, AT 


1290 


CFFA 


C5C1C1E6 




FDB 


LESS, ZBRAN 


1291 


CFFE 


000AC9EflC9 




FDB 


INTER3-+, CFA, COMMA 


1292 


D004 


CI DA 




FDB 


BRAN 


1293 


D606 


0086 




FDB 


INTER4-+ 


1294 


D00S 


C9EAC06C 


INTER3 


FDB 


CFA,EXEC 


1295 


D80C 


CC30C1DA 


INTER4 


FDB 


QSTACK , BRAN 


1296. 


D810 


001R 




FDB 


INTER7-+ 


1297 


D012 


C8ERCE39C8 


INTERS 


FDB 


HERE, NUMB, DPL, AT, ONEP 
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1298 


D01C 


C1E6 




FDB 


ZBRAM 


1299 


DOIE 


00OSCFDOC1 




FDB 


INTER6-+, DLITER, BRAN 


1309 


D024 


0006 




FDB 


IHTER7-+ 


1301 


D026 


C684CFB3 


IHTER6 


FDB 


DROP, LITER 


1 302 


D02A 


CC30C1DA 


IHTER7 


FDB 


QSTACK,BRAM 


1303 


D02E 


FFC2 




FDB 


IHTER2-+ 


1304 


D030 


89494D4D45 




FCB 


$89, -I, -M, -M, -E, 'D, 'I 


1385 


D037 


4154C5 




FOB 


"A, -T, 'E+$80 


1306 


D03fl 


CFE2 




FDB 


INTERP-*@C 


1307 


D03C 


CQ4EC9CRC1 


IHMED 


FDB 


DOCOL, LATEST, LIT, $40 


1308 


DQ44 


C72EC05B 




FDB 


TOGGLE, SEMIS 


1309 


D048 


8fl 




FCB 


$8A 


1310 


D049 


564F434142 




FCC 


AJOCABULAR-- 


1311 


D052 


D9 




FCB 


'V+$80 


1312 


D053 


D03O 




FDB 


IMMED-*@C 


1313 


D055 


C04EC6FDC1 


UOCRB 


FDB 


DOCOL, BUILDS, LIT 


1314 


D05B 


81R0C9O6C8 




FDB 


*81R0, COMMA, CUREHT, AT 


1315 


D063 


C9ERC906C8 




FDB 


CFA, COMMA, HERE, UOCLIH 


1316 


D06B 


C6C:OC906C8 




FDB 


AT, COMMA, UOCLIH, STORE 


1317 


D073 


C70D 




FDB 


DOES 


1318 


D075 


C4CRC889C6 


DOUOC 


FDB 


TWOP, COMTXT, STORE 


1319 


D07B 


C05B 




FDB 


SEMIS 


1320 


D07D 


00OO 




FDB 





1321 


D07F 


SB44454649 




FCB 


*8B, ••D,-E,-F,-'I,'M, -I 


1322 


D0S6 


54494F4ED3 




FCB 


'T,'I, •'0,-W,"S+*80 


1323 


D08B 


D04S 




FDB 


UOCAB-$OD 


1324 


D08D 


C04EC889C6 


DEFIH 


FDB 


DOCOL, CONTttT, AT 


1 325 


D093 


C897C6.D8C0 




FDB 


CURENT , STORE , SEM I S 


1326 


D099 


C1R8 




FCB 


•£C1, '<+*80 


1 "TO "7 

1 -u.»^_ 1 


D09B 


D07F 




FDB 


DEFIM-$OE 


1328 


D09D 


C04EC1CR0O 


PflREN 


FDB 


DOCOL, LIT, $29 '<" 


1329 


D0A3 


CD9DC05B 




FDB 


WORD, SEMIS 


1330 


D0A7 


84515549D4 




FCB 


$84, 'Q, -U, -I, "T+*S6 


1331 


D0AC 


D099 




FDB 


PAREN-4 


1332 


D0AE 


C04EC784C8 


QUIT 


FDB 


DOCOL , ZERO , BLK , STORE 


1333 


D6B6 


CRDF 




FDB 


LBRAK 


1334 


DOBS 


C1BBC112CC 


QUIT2 


FDB 


RPSTOR,CR,QUERV 


1335 


DOBE 


CFEEC8A3C6 




FDB 


IMTERP, STATE, AT, ZEQU 


1336 


D8C6 


C1E6 




FDB 


ZBRAM 


1337 


DOCS 


0OO8 




FDB 


QUIT3-* 


1338 


D0CR 


CBE4 




FDB 


PDOTQ 


1339 


DOCC 


03204F4B 




FCB 


3,32, -0, -K 


1340 


DODO 


C1DR 


QUIT3 


FDB 


BRAN 


1341 


D0D2 


FFE6 




FDB 


QUIT2-+ 


1342 


D0D4 


8541424F52 




FCB 


$85, -A, -B, -0, 'R 


1343 


D0D9 


D4 




FCB 


"T+$80 


1344 


DODfi 


D0A7 




FDB 


QUIT-7 


1345 


DODC 


C04EC1ADCB 


ABORT 


FDB 


DOCOL, SPSTOR, DEC 


1346 


D0E2 


C112CBE4 




FDB 


CR, PDOTQ 


1347 


D0E6 


29 




FCB 


41 


1348 


D0E7 


434F4C4F52 




FCC 


^COLORFORTH 1 . 0--' 


1349 


D8F5 


0DORO7 




FCB 


13,10,07 
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1 356 


DBF 8 


434F505952 




FCC 


/'COPVRIGHT 1981 .-- 


1351 


D187 


544A5A2026 




FCC 


/TJZ & RJT/ 


1352 


D11S 


C112C784C8 




FDB 


CR, ZERO, IN, STORE, ZERO 


1353 


Dllfl 


C851C6D8 




FDB 


BLK, STORE 


1354 


DUE 


0646 




FDB 


FORTH-RAM+BRAM 


1355 


D126 


D08DD8AE 




FDB 


DEFIN,QUIT 


1356 


D124 


85422F4255 




FCB 


$85, -B, •/,-" B,-"U 


1357 


D129 


C6 




FCB 


'F+$80 


1358 


D12A 


D8D4 




FDB 


ABORT-3 


1359 


D12C 


C763840© 


BBUF 


FDB 


DOCON,1024 


1368 


D130 


S5422F5343 




FCB 


$85, "B, ■'.■•-, -S, 'C 


1361 


D135 


D2 




FCB 


"R+$80 


1362 


D136 


D124 




FDB 


BBUF-S 


136-3 


D138 


C7638891 


BSCR 


FDB 


DOCOH, 1 


1364 


D13C 


83432FCC 




FCB 


$83, 'C, V,'L+$80 


1365 


D148 


D130 




FDB 


BSCR-S 


1366 


D142 


C7638028 


CSL 


FDB 


D0C0N..32 


1367 


D146 


874D455353 




FCB 


$87, "M, -'E, • S, 'S, 'A 


1363 


D14C 


47C5 




FCB 


'G,'E+$80 


1369 


D14E 


D13C 




FDB 


CSL-6 


1378 


D150 


C84ED32DC0 


MESS 


FDB 


DOCOL, DOT, SEMIS 


1371 


D156 


C1A7 




FCB 


$C1, •'•'+$80 


1372 


DISS 


D146 




FDB 


MESS-$0A 


1373 


D15H 


C04ECE91C6 


TICK 


FDB 


DOCOL, DFIND, ZEQU, ZERO 


1374 


D162 


CR36C684CF 




FDB 


QERR , DROP , L I TER , SEM I S 


1375 


D16fl 


36464F5247 




FCB 


$86, 'F, '0, 'R, -G, 'E 


1376 


D178 


D4 




FCB 


'T+$80 


1377 


D171 


D156 




FDB 


TICK-4 


1373 


D173 


C04EC897C6 


FORGET 


FDB 


DOCOL, CURENT, AT 


1379 


D179 


C889C6C8C9 




FDB 


COHTXT , AT , SUB , L I T , $ 1 8 


1330 


D183 


CA36D15AC6 




FDB 


QERR , T I CK , DUP , FENCE 


1 381 


D18B 


C6C0C5C1C1 




FDB 


AT , LESS , L I T , $ 1 5 , QERR 


1332 


D195 


C6A3C9FSC8 




FDB 


DUP, NFA, DP, STORE, LFA 


1333 


D19F 


C6C0C889C6 




FDB 


AT , CONTtfT, AT , STORE 


1334 


D1A7 


C05B 




FDB 


SEMIS 


1335 


D1A9 


84424 143CB 




FCB 


$84, "'B, -A, 'C, 'K+$88 


1336. 


DlflE 


D16A 




FDB 


FORGET-9 


1337 


DIBS 


C04EC8EAC9 


BACK 


FDB 


DOCOL, HERE, SUB, COMMA 


1383 


DIBS 


C05B 




FDB 


SEMIS 


13S9 


D1BA 


C542454749 




FCB 


$C5,'B, •'E,'G,-I 


1396 


D1BF 


CE 




FCB 


'N+$80 


1391 


Dice 


D1A9 




FDB 


BACK-7 


1392 


D1C2 


C84ECA58C8 


BEGIN 


FDB 


DOCOL, QCOMP, HERE 


1393 


D1CS 


C78CC05B 




FDB 


ONE, SEMIS 


1394 


D1CC 


C5454E4449 




FCB 


$C5, 'E, -N, 'D,'I 


1395 


D1D1 


C6 




FCB 


'F+$80 


1396 


D1D2 


D1BA 




FDB 


BEGIN-8 


1397 


D1D4 


C04ECA58e7 


END IF 


FDB 


DOCOL, QCOMP, TWO 


1398 


D1DA 


CR7FC8EflC6 




FDB 


QPAIRS, HERE, OUER, SUB 


1399 


D1E2 


C692C6DSC8 




FDB 


SWAP, STORE, SEMIS 


1400 


DIES 


C244CF 




FCB 


$C'2, -D, •o+$yo 


14©1 


D1EB 


D1CC 




FDB 


ENDIF-8 
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DIED 


C64ECRC9C2 


DO 


FDB 


DOCOL , COMP I L , XDO , HERE 


D1F5 


C79CC05B 




FDB 


THREE, SEMIS 


D1F9 


C44C4F4FD0 




FCB 


$C4, --L, -0, -0, 'P+*30 


D1FE 


DIES 




FDB 


DO-5 


D288 


C04EC79CCR 


LOOP 


FDB 


DOCOL , THREE , QPfi I RS 


D206 


CAC9C203 




FDB 


COMPIL,XLOOP 


D2SR 


D1B8C05B 




FDB 


BRCK, SEMIS 


D20E 


C249C6 




FCB 


$C2, -I, 'F+*3Q 


D211 


D1F9 




FDB 


L00P-7 


D213 


C04ECRC9C1 


IF 


FDB 


DOCOL , COMP I L , ZBRRN 


D219 


C8ERC7S4C9 




FDB 


HERE, ZERO, COMMA 


D21F 


C794C05B 




FDB 


TWO, SEMIS 


D223 


C4454C53C5 




FCB 


$C4,-E,"L,'S,'E+$80 


D22S 


D20E 




FDB 


IF-5 


D22R 


C04EC794CR 


ELSE 


FDB 


DOCOL, TWO, QPfl IRS 


D23S 


CflC9ClDAC8 




FDB 


COMP I L , BRflM , HERE , ZERO 


D23S 


C906C692C7 




FDB 


COMMA , SWRP , TWO , END' I F 


D24Q 


C794C05B 




FDB 


TWO, SEMIS 


D244 


8653504143 




FCB 


$86, •S,-P,'A,-C,-E 


D24R 


D3 




FCB 


■'S+$80 


D24B 


D223 




FDB 


ELSE-7 


D24D 


C04EC7S4C9 


SPACES 


FDB 


DOCOL , ZERO , MAX , DDUP 


0255 


C1E6 




FDB 


ZBRAM 


D25? 


000CC7S4C2 




FDB 


SPACE3-*, ZERO, XDO 


D25D 


C94FC263 


SPRCE2 


FDB 


SPACE, XLOOP 


D261 


FFFC 




FDB 


SPACE2-+ 


D263 


C05B 


SPRCE3 


FDB 


SEMIS 


D265 


S23CR3 




FCB 


$82, •-<, •#+$80 


D26S 


D244 




FDB 


SPACES-9 


D26A 


C04ECDSRC8 


BDIGS 


FDB 


DOCOL, PHD, HLD 


D278 


C6D8C05B 




FDB 


STORE, SEMIS 


D274 


8223BE 




FCB 


$82, •#, •'>+$88 


D277 


D265 




FDB 


BDIGS-5 


D279 


C04EC684C6 


EDIGS 


FDB 


DOCOL , DROP , DROP , HLD 


D231 


C6C0CD8RC6 




FDB 


AT , PRD , OUER , SUB , SEM I S 


D28B 


S4534947CE 




FCB 


$84, -S, -I, 'G, •'N+$38 


D298 


D274 




FDB 


EDIGS-5 


D292 


C04ECC60C6 


SIGN 


FDB 


DOCOL , ROT , ZLESS , ZBRRN 


D29R 


000SC1CH00 




FDB 


S I GN2-+ , L I T , $2D , HOLD 


D2R2 


C05B 


SIGH2 


FDB 


SEMIS 


D2R4 


81R3 




FCB 


$31, '#+$80 


D2R6 


D23B 




FDB 


SIGN-7 


D2A8 


C04EC8REC6 


DIG 


FDB 


DOCOL , BASE , AT , MSMOD 


D2B0 


CC60C1CR00 




FDB 


ROT , L I T , 9 , OUER , LESS 


D2BR 


C1E6 




FDB 


ZBRRN 


D2BC 


000SClC:fl00 




FDB 


DIG2-*,LIT,7,PLUS 


D2C4 


C1CR8030C4 


DIG2 


FDB 


LIT, $38, PLUS 


D2CR 


CD72C05B 




FDB 


HOLD, SEMIS 


D2CE 


8223D3 




FCB 


$82, -'#, -S+$30 


D2D1 


D2R4 




FDB 


DIG-4 


D2D3 


C04E 


DIGS 


FDB 


DOCOL 


D2D5 


D2RSC676C6 


DIGS2 


FDB 


DIG, OUER, OUER, OR 
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D2DD 


C617C1E6 




FDB 


ZEQILZBRRN 


D2E1 


FFF4C85B 




FD'B 


DIGS2-+,SEMIS 


D2E5 


83442ED2 




FCB 


$83, -'D,-". , -R+$38 


D2E9 


D2CE 




FDB 


DIGS-5 


D2EB 


C04EC652C6 


DDOTR 


FDB 


DOCOL, TOR, SWAP, OUER 


D2F3 


C5RFD26RD2 




FDB 


DABS , BD I GS , D I GS , S I GH 


D2FE 


D279C668C6 




FDB 


EDIGS, FROMR, OUER, SUB 


D3Q3 


D24DCBS3C0 




FDB 


SPACES, TYPE, SEN IS 


D389 


822ED2 




FCB 


$82, -'., -'R+*88 


D30C 


D2E5 




FDB 


DDOTR-6 


D38E 


C04EC652C5 


DOTR 


FDB 


DOCOL, TOR, STOD, FROMR 


D316 


D2EBC05B 




FDB 


DDOTR, SEMIS 


D31R 


824 4RE 




FCB 


$82, -D, •'.+$38 


D31D 


D309 




FDB 


DOTR-5 


D31F 


C04EC784D2 


DDOT 


FDB 


DOCOL , ZERO , DDOTR 


D325 


C94FC05B 




FDB 


SPACE, SEMIS 


D329 


81 RE 




FCB 


$81, '.+$30 


D32B 


D31R 




FDB 


DDOT-5 


D32D 


C84EC5DFD3 


DOT 


FDB 


DOCOL , STOD , DDOT , SEN I S 


D335 


85564C4953 




FCB 


$85, -U^-L, 'I,-S 


D33R 


D4 




FCB 


•T+$80 


D33B 


D329 




FDB 


DOT-4 


D33D 


C04EC889C6 


ULIST 


FDB 


DOCOL, CONTXT, AT, AT 


D345 


C6R3C6CCC1 


ULIST1 


FDB 


DUP, CRT, LIT, 31, AND 


D34F 


C864C6C0C4 




FDB 


OUT , AT , PLUS, CSL , THREE 


D359 


C927C93FC1 




FDB 


SUB, GREAT, ZBR AH 


D35F 


8804C112 




FDB 


ULIST2-+..CR 


D363 


C6R3CEECC9 


ULIST2 


FDB 


DUP, I DDOT, SPACE 


D369 


CR0EC9DRC6 




FDB 


PFA, LFR, AT, DUP, ZEQU 


D373 


C6FDC43BC1 




FDB 


QTERM,OR,ZBRAM 


D379 


FFCCC684C0 




FDB 


UL I ST 1 -* , DROP , SEM I S 


D37F 


8728424C4F 




FCB 


$87, ••'<:, -B, 'L,-"0,-C 


D385 


4BR9 




FCB 


'K,'>+$88 


D337 


D335 




FDB 


ULIST -8 


D3S9 


C04EC652C6 


PBLOCK 


FDB 


DOCOL, TOR, R, ONE, LESS 


D393 


C66DC809C6 




FDB 


R,BMAX,RT, GREAT 


D39B 


C43BC1CR00 




FDB 


OR , L I T , 8 , QERR , FROMR 


D3R5 


C78CC927D1 




FDB 


ONE,SUB,BBUF,LIT,4 


D3RF 


C459C4F5C7 




FDB 


PLUS, STRR, FIRST 


D3B5 


C459C4CRC0 




FDB 


PLUS, TWOP, SEMIS 


D3BB 


844C4F41C4 




FCB 


$84, -L, -0, --fl, -D+$88 


D3C0 


D37F 




FDB 


PBLOCK- I© 


D3C2 


C04EC851C6 


LORD 


FDB 


DOCOL , BLK , RT , TOR , I N 


D3CC 


C6C0C652C7 




FDB 


RT, TOR, ZERO, IN, STORE 


C>3D6 


C851C6DSCF 




FDB 


BLK, STORE, INTERP 


D3DC 


C668C85RC6 




FDB 


FROMR, IN, STORE, FROMR 


D3E4 


C851C6DSC6 




FDB 


BLK, STORE, SEMIS 


D3Efl 


36284C494E 




FCB 


$36, ••<,-L, •■'I,'N,-'E 


D3F8 


R9 




FCB 


"" :> +$30 


D3F1 


D3BB 




FDB 


LORD-7 


D3F3 


C04EC652D1 


PL I HE 


FDB 


DOCOL, TOR, CSL, BBUF 


D3FB 


C55BC660C4 




FDB 


SSMOD, FROMR, PLUS 
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1566 0401 


0638 




FDB 


BLOCK-RAM+BRAM 


1567 D403 


C4590142C8 




FDB 


PLUS, CSL, SEN IS 


1508 D409 


852E4C494E 




FCB 


$85, •'•.,-L,-I,-N 


1509 D40E 


C5 




FCB 


'E+$30 


1516 D4QF 


03Efl 




FDB 


PL I HE -9 


1511 D411 


C84ED3F3 


DOTLIN 


FDB 


DOCOL, PL I ME 


1512 D415 


CBB1CB83C8 




FDB 


DTRAIL..TVPE, SEMIS 


1513 D41B 


844C4953D4 




FCB 


$84, -'L, •'I,-"S, "T+*SS 


1514 D428 


0469 




FDB 


DOTLIH-S 


1515 D422 


C04ECB2AC1 


LIST 


FDB 


DOCOL, DEC, CR, DUP, SCR 


1516 D42C 


C608CBE4 




FDB 


STORE, PDOTQ 


1517 D438 


0653435228 




FCB 


6,'S,-C'R,32,-'#,32 


1518 D437 


D320D12C01 




FDB 


DOT , BBUF , CSL , SLASH 


1519 D43F 


C784C23C 




FDB 


ZERO,XDO 


1528 D443 


C112C24BC7 


LIST2 


FDB 


CR, I , TWO, DOTR, SPACE 


1521 D440 


C24BC86EC6. 




FDB 


T,SCR,AT,DOTLIH 


1522 D455 


C0FOC1E6 




FDB 


QTERN,ZBRAN 


1523 0459 


00O4C644 




FDB 


LIST3-+,LEAUE 


1524 D45D 


C203 


LIST3 


FDB 


XLOOP 


1525 D45F 


FFE4C112C0 




FDB 


LIST2-*,CR, SEMIS 


1526 D465 


85434C4541 




FCB 


*85, -C, 'L,-'E, -A 


1527 D46A 


D2 




FCB 


" R+$80 


1528 D46B 


D41B 




FDB 


LIST-7 


1529 0460 


C04E0638 


CLEAR 


FDB 


DOCOL , BLOCK-RAM+BRAM 


1536 D471 


D12CCD63C0 




FDB 


BBUF, BLANKS, SEMIS 


1531 D477 


34544F4EC5 




FCB 


$84, -T, -0, "M, •'E+$88 


1532 D47C 


0465 




FDB 


CLEAR-8 


1533 D47E 


0480 


TONE 


FDB 


++2 


1534 0480 


3434 




PSHi 




1535 D432 


3720 




PULU V 


1536. D484 


3706 




PULU D 


1537 0486 


078C 




STB 


$8C 


1538 0488 


1F20 




TFR 


V,D 


1539 04Sfl 


344U 




PSHi 


3 U 


1540 048C 


BDR951 




JSR 


$A951 


1541 048F 


354© 




PULS U 


1542 0491 


3534 




puls b, ;<:,v 


1543 0493 


16EBBC 




LBRA NEKT 


1544 0496 


B6FF81 


HCLR 


LDA 


$FF01 


1545 0499 


8R08 




ORA 


#$08 


1546 049B 


B7FF01 




STA 


$FF01 


1547 049E 


863C 




LDA 


#$3C 


1548 O4A0 


B7FF23 




STA 


$FF23 


1549 04R3 


8620 




LDA 


#$20 


1550 04A5 


8E01D1 




LDX 


#$101 


1551 04 AS 


A780 


HCLR2 


STA 


,X+ 


1552 04flA 


3C01DR 




CMPlf 


< #$1DA 


1553 04AD 


26F9 




BHE 


NCLR2 


1554 04flF 


8601 




LDA 


#$01 


1555 04B1 


B701D1 




STA 


$1D1 


1556 D4B4 


39 




RTS 




1557 04B5 


3557524954 




FCB 


$85, 'UI,-"R,-'I,"T 
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l558 D4BA 


C5 




FOB -'E+*88 


559 D4BB 


D477 




FDB TONE-7 


568 D4BD 


C04E0638 


WRITE 


FDB DOCOL, BLOCK-RAM+BRAM 


.561 D4C1 


D4C5C85B 




FDB BUIR IT, SEMIS 


.562 D4C5 


D4C7 


BWRIT 


FDB ++2 


l563 D4C7 


3434 




PSHS B,X,V 


564 D4C9 


BDD496 




JSR NCLR 


565 D4CC 


0F78 




CLR *78 


566 D4CE 


3440 




PSHS LI 


567 D4D0 


8601 




LDA #*01- 


568 D4D2 


BDA65C 




JSR *A65C 


569 D4D5 


3540 




PULS U 


578 D4D7 


3710 




PLILU y. 


571 D4D9 


31890400 




LEAV *40O,X 


572 D4DD 


109F02 




STV *@2 


573 D4E0 


A680 


WRIT3 


LDA , X+ 


574 D4E2 


BDA290 




JSR $A290 


575 D4E5 


9C02 




CMPX $02 


576 D4E7 


26F7 




BHE WRIT3 


577 D4E9 


9679 




LDA $79 


578 D4EB 


2703 




BEQ WRIT4 


579 D4ED 


BDA2A8 




JSR *A2AS 


5S0 D4F0 


BDA444 


WRIT4 


JSR $A444 


581 D4F3 


3534 




PULS B,X,V 


582 D4F5 


16EB5A 




LBRA NEXT 


583 D4F8 


8452454 1C4 




FOB $84, -R, -E, -A, "D+*36 


584 D4FD 


D4B5 




FDB WRITE-8 


585 D4FF 


C04E0638 


READ 


FDB DOCOL , BLOCK-RAM+BRAM 


536 D503 


D507C05B 




FDB BREAD, SEMIS 


587 D507 


D509 


BREAD 


FDB ++2 


588 D509 


3434 




PSHS B,X,V 


589 D56B 


BDD496 




JSR NCLR 


590 D56E 


BEC179 




LDX WENT 


591 D511 


BF018F 




STX *18F 


592 D514 


S67E 




LDA #$7E 


593 D516 


B701SE 




ST A *18E 


594 D519 


3710 




PULU X 


595 D51B 


9F02 




STX $02 


596 D51D 


0F78 




CLR $78 


59? D51F 


3440 




PSHS U 


598 D521 


BDA629 




JSR $A629 


599 D524 


0D79 


READ2 


TST *79 


606 D526 


270B 




BEQ READ3 


601 D528 


BDR186 




JSR *fllS6 


602 D52B 


9E02 




LDX *02 


603 D52D 


fl?80 




STA ,X+ 


604 D52F 


9F02 




STX $02 


605 D531 


28F1 




BRA READ2 


606 D533 


0F78 


READ3 


CLR $78 


60? D535 


3540 




PULS U 


688 D537 


3534 




PULS B,X,V 


609 D539 


16EB16 




LBRA NEXT 
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1610 D53C 8653435245 




FCB 


$86, "S, "C, "R, -E, "E 


1611 D542 CE 




FCB 


"N+*S@ 


1612 D543 D4F8 




FDB 


REflD-7 


1613 D545 C763W488 


SCREEN 


FDB 


DOCON .. $8488 „ 


1614 D549 83434CD3 




FCB 


$83, -c -l, ■s+$se 


1615 D54D D53C 




FDB 


SCREEN-9 


1616 D54F D551 


CLS 


FDB 


*+2 


1617 D551 3434 




PSHS 


B,X,V 


1613 D553 3786 




PULL 


I D 


1619 D555 BDR91C 




JSR 


$R91C 


1628 D558 3534 




PULE 


. B,X,V 


1621 D55R 16ERF5 




LBRP 


NEXT 


1622 D55D 844R5354CB 




FCB 


$84, "J, X S, 'T, •'K+$88 


1623 D562 D549 




FDB 


CLS-6 


1624 D564 D566 


JSTK 


FDB 


++2 


1625 D566 3474 




PSHE 


'. B,X,V,U 


1626 D568 BDR9DE 




JSR 


$R9DE 


1627 D56B 3574 




PULS B,X,\ J ,U 


162S D56D 16ERE2 




LBRR NEXT 


1629 D578 


RAM 


EQU 


* 


1638 D578 37284 1424F 




FCB 


$87, -'<,-fi,-"B, 'C-'R, - 


1631 D577 fl9 




FCB 


■>+$88 


1632 D578 D55D 




FDB 


JSTK-7 


1633 D57R C84ED0DCC8 


PflBORT 


FDB 


DOCOL, RBORT, SEMIS 


1634 D538 85424C4F43 




FCB 


$85, -B, "L, '0, -C 


1635 D585 CB 




FCB 


•'K+$88 


1636 D586 8628 




FDB 


PRBORT- 1 8-RRM+BRflM 


1637 D5S8 C84ED389C8 


BLOCK 


FDB 


DOCOL, PBLOCK, SEMIS 


1638 D58E C5464F5254 




FCB 


$C5, -F, '0, 'R, 'T 


1639 D593 C8 




FCB 


-' H+$88 


1648 D594 8638 




FDB 


BL0CK-8-RRM+BRRM 


1641 D596 C719D87581 


FORTH 


FDB 


DODOES , DOUOC , $8 1 R8 


1642 D59C 86668888 




FDB 


EDITOR-9-RRM+BRRM, 8 


1643 D5R8 C9 




FCB 


$C9 


1644 D5R1 415353454D 




FCC 


.'"ASSEMBLE^ 


1645 D5R9 D2 




FCB 


■' R+$88 


1646 D5RA 863E 




FDB 


F0RTH-8-RRM+BRRM 


1647 D5RC C719D87581 


flSSEM 


FDB 


DODOES, DOUOC, $81R8 


1648 D5B2 864R88U8 




FDB 


F0RTH+4-RRM+BRRM, 8 


1649 D5B6 C645444954 




FCB 


$C6, •E,-"D,-I, •'T,-'0 


1658 D5BC D2 




FCB 


-'R+$88 


1651 D5BD 8658 




FDB 


flSSEM- 1 2-RHM+BRRM 


1652 D5BF C719D875S1 


EDITOF 


: FDB 


DODOES, DOUOC, $81R8 


1653 D5C5 864R8880 




FDB 


F0RTH+4-RRM+BRRM, 8 


1654 D5C9 D5C9 




FDB 


+ 


1655 D5CB 8888 


ERRM 


FDB 


8 
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1656 D5CD 






END 


KRNL 






ABORT 


D8DC 


BBS 


C59A 


ABS2 


C5A6 


ALLOT 


C8FA 


AND 


C429 


ASSEM 


D5AC 


AT 


C6C0 


BAUK 


D1B8 


BASE 


Ct'HE 


BBUF 


D12C 


BCOMP 


CF97 


BDIGS 


D26H 


BEGIN 


D1C2 


BL 


C7A5 


BLANKS 


CD63 


BLK 


C851 


BLOCK 


D5SS 


BMAX 


C809 


BRAN 


0628 


BRAN 


CI DA 


BREAD 


D5S7 


BSCR 


D138 


BUILDS 


C6FD 


BUIRIT 


D4C5 


CRT 


C6CC 


CCOMM 


C917 


CEMIT 


C8B7 


CENT 


C12A 


CFfl 


C9EA 


CKEV 


C0E2 


CLEAR 


D46D 


CLS 


D54F 


CMOU2 


pTOO 


CMOU3 


C332 


CMOUE 


C31A 


COLD 


CI 28 


COLD2 


CI 35 


COLDZ 


CI 54 


COLON 


C03A 


COMMA 


C986 


COMPIL 


CAC9 


CON 


C759 


CONTXT 


C889 


COUNT 


CB70 


CR 


CI 12 


CREAT2 


CF55 


CREATE 


CF3B 


CSL 


D142 


CSP 


CSCC 


CSTORE 


C6E8 


CURENT 


C897 


DABS 


C5AF 


DRBS2 


C5BB 


DDOT 


D31F 


DDOTR 


D2EB 


DDUP 


C98E 


DDUP2 


C998 


DEC 


CB2A 


DEFIH 


D88D 


DFIND 


CE91 


DFIND2 


CEB1 


DIG 


D2A8 


DIG2 


D2C4 


DIGIT 


C25A 


DIGIT© 


C270 


DIGIT1 


C278 


DIGIT2 


C27D 


DIGS 


D2D3 


DIGS2 


D2D5 


DLITE2 


CFEO 


DLITER 


CFD8 


DMINUS 


C49D 


DM INK 


C4B3 


DO 


DIED 


DOCOL 


C84E 


DOCON 


C763 


DODOES 


C719 


DOES 


C70D 


DOT 


D32D 


DOTLIN 


D411 


DOTQ 


CBFD 


DOTQ1 


CC1D 


D0TQ2 


CC25 


DOTR 


D30E 


DOUSER 


C7DC 


DOMAR 


C779 


DOUOC 


D075 


DP 


C83S 


DPINIT 


C00A 


DPL 


C8B8 


DPLUS 


0467 


DROP 


C684 


DSETS2 


C610 


DSETSN 


C606 


DTRAIL 


CBB1 


DTRAL2 


CBB9 


DTRAL3 


CBD3 


DTRAL4 


CBD7 


DUP 


C6A3 


EDIGS 


D279 


EDITOR 


D5BF 


ELSE 


D22H 


EMIT 


C09D 


EMIT2 


C8B3 


EHCL11 


C303 


EHCL2 


C307 


ENCL4 


C38B 


ENCL01 


C2E9 


ENCL02 


C2F9 


ENCLOS 


C2DD 


END IF 


D1D4 


EQUAL 


C933 


ERflM 


D5CB 


ERASE 


CD52 


ERROR 


CEBB 


ERR0R2 


CEC9 


EXEC 


C06C 


EXPEC2 


CC7F 


EXPEC3 


CCAB 


EXPEC4 


CCC3 


EXPEC5 


CCG5 


EXPEC6 


CCD1 


EXPECT 


CC75 


FENCE 


C82F 


FENCIN 


C608 


FILL 


CD32 


FIRST 


C7B1 


FLD 


C8C2 


FORGET 


D173 


FORTH 


D596 


FOUND 


C2C4 


FROMR 


C668 


GETX 


C030 


GREAT 


C93F 


HERE 


C8EA 


HEX 


CB14 


HLD 


C8DF 


HOLD 


CD72 


I 


C24B 


I DDOT 


CEEC 


IF 


D213 


IMMED 


D03C 


IN 


CS5A 


INTER2 


CFFO 


INTER3 


D808 


IHTER4 


D00C 


INTER5 


D012 


INTER6 


D026 


INTER7 


D02R 


INTERP 


CFEE 


JSTK 


D564 


KEV 


C0D6 


KRNL 


C000 


LATEST 


C9CA 


LBRAK 


CADF 


LCASE 


C35F 


LEAUE 


C644 


LESS 


C5C1 


LESSF 


C5CF 


LESST 


C5D2 


LESSX 


C5D4 


LFA 


C9DA 


LIMIT 


C7BD 


LIST 


D422 


LIST2 


D443 


LIST3 


D45D 


LIT 


CICfl 


LITER 


CFB3 


LITER2 


CFC3 


LOAD 


D3C2 


LOOP 


D20O 


MAX 


C975 


MRX2 


C983 


MAXBLK 


C012 


MESS 


D158 


MEXIT 


C890 


MIN 


C95D 


MIN2 


C96B 


MINUS 


C484 


MINUS2 


C48F 


MOD 


C54B 


MSLflSH 


C582 


MSMOD 


C57E 


MSTAR 


C4D9 


MTEXT 


C07fl 


MTEXT2 


C082 


N 


86A8 


NBLK 


8008 


HCLR 


D496 


NCLR2 


D4A8 


NEXT 


C852 


NEXT3 


C854 


NFA 


C9F8 


NMTCH 


C08F 


NULL 


CCFB 


NULL1 


CD21 
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HULL2 

HUMB2 

OHEP 

PR 

PRREN 

PDOTQ 

PFIND1 

PFIND8 

PNUMB 

PORIG 

PSTORE 

QCOMP 

QERR3 

QSTflCK 

QUIT2 

RBRRK 

RINIT 

SCR 

SEMIC 

SIGH 

SLMOD 

SMOUE 

SPHCE3 

SSLflSH 

STOD 

SUB 

T I BINT 

TOPDEF 

TRRU2 

TWOP 

TVPE4 

USER 

USRBGN 

UIRBGH 

ULIST2 

WRRM 

WRUE2 

WIDINT 

WORD3 

URN I NT 

XPLOF 

XUIRBG 

ZBVES 

ZLESS 



CD25 
CE7D 
C4BB 
86R4 
D09D 
CBE4 
C297 
C2BA 
CDEE 
C7EE 
C6AF 
CR50 
CA46 
CC38 
DOBS 
CflED 
CO IE 
C86E 
CB56 
D292 
C52B 
C341 
D263 
C56C 
C5DF 
C927 

ceic 

C06E 
C9R9 
C4CA 
CBR3 
C7D6 
06fl8 
89A8 
D363 
C177 
C386 
C824 
CDB5 
C02S 
C229 
CO 16 
CI EC 
C62R 



NULL3 

NUMB3 

OR 

PRO 

PBLOCK 

PFR 

PFIND2 

PFINDE 

PNUMB2 

PRGBGN 

PULLDX 

QCSP 

QEXEC 

QTERM 

QUIT3 

READ 

RNUM 

SCREEN 

SEMIS 

SIGN2 

SM0U2 

SMUDGE 

SPACES 

SSMOD 

ST0D2 

SWAP 

TICK 

TOPEDT 

TSLS 

TVPE 

UORIG 

USLASH 

USREND 

U I REND 

UOCAB 

WRRM2 

WRUE3 

UIDTH 

WRIT3 

XDO 

XPLONO 

XUIRED 

2EQU 

ZLESS2 



CD29 
CE87 
C43B 
06 A 2 
D339 
CASE 
C2A6 
C2CE 
CDFO 

C000 

C02A 
CA92 
CA6S 
COFD 
DODO 
D4FF 
C8D5 
D545 
C05B 
D2A2 
C34F 
CB02 
D24D 
C55B 
C5EA 
C692 
D15R 

C010 

C41A 
CBS3 
06AC 
C3D9 
09AO 
29C0 
D655 
C17F 
C397 
C815 
D4E0 
C23C 
C231 
C018 
C617 
C63S 



NUMB 

OFSET 

OUT 

PflBORT 

PCHR 

PFIND 

PFIND3 

PLINE 

PNUMB3 

PSC'ODE 

PUSHD 

QERR 

QLOAD 

QUERV 

R 

READ2 

ROT 

SCSP 

SETSN 

SINIT 

SM0U3 

SPACE 

SPAT 

STAR 

STORE 

THREE 

TOGGLE 

TOR 

TSTR 

TVPE2 

UP 

USLL1 

USTAR 

ULIST 

UOCINT 

WARN 

WAUE4 

WORD 

WRIT4 

XLOOP 

XPLOOP 

ZBNO 

2EQU2 



CE39 
C87B 
C864 
D57R 
06A6 
C28D 
C2B2 
D3F3 
CE26 
CB48 
C032 
CA36 
CAAF 
CCE3 
C66D 
D524 
CC60 
CA23 
C5F4 
C01A 
C363 
C94F 
C19E 
C4F5 
C6D8 
C79C 
C72E 
C652 
C40C 
CB93 
06AR 
C3ER 
C3R3 
D33D 
COOC 
C823 
C391 
CD9D 
D4F0 
C203 
C214 
C1F5 
C620 



NUMB1 

ONE 

OUER 

PAD 

PD 

PFINDS 

PFIND4 

PLUS 

PNUMB4 

PSEMIS 

PUTD 

QERR2 

QPRIRS 

QUIT 

RAM 

RERD3 

RPSTOR 

SEMI 

SETSN2 

SLASH 

SM0U4 

SPACE2 

SPSTOR 

STATE 

STOREX 

TIB 

TONE 

TRAU 

TWO 

TVPE3 

UPINIT 

USLL2 

URR 

ULIST1 

UOCLIN 

WRUE 

WENT 

W0RD2 

WRITE 

XOR 

XPLOP2 

ZBRHN 

ZERO 



CE57 

C78C 

C676 

CD8R 

06R0 

C291 

C2BE 

C459 

CE2C 

C65D 

C431 

CR44 

CR7F 

DORE 

D576 

D533 

C1BB 

C740 

C5FE 

C53B 

C35B 

D25D 

C1RD 

C8R3 

C02C 

C7FE 

D47E 

C9R5 

C794 

CBR1 

C006 

C3FR 

C"7"7"T 
l l J 

D345 
C847 
C371 
CI 79 
CDB1 
D4BD 
C44B 
C218 
C1E6 
C784 
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SCR 
6 
1 
2 
3 
4 
5 
6 

8 
9 

10 

11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 



24 
25 
26 
27 
23 
29 
30 
31 



1 

< COLORFORTH 1.0 > 

< READ WRITE WORDS > DECIMAL 
: READS OUER + SWAP 

DO I . I READ LOOP ; 
: CLOADS 

DO 1 READ 1 LOAD 
LOOP ; 
: WRITES OUER + SWAP 

DO I . I WRITE LOOP J 
: +LOOP 3 7PAIRS COMPILE <+LOOP> 

BACK ; IMMEDIATE 
HEX 
88 CONSTANT CUR 
SD CONSTANT TIME 
: TIME© -1 TIME ! ; 
: ?TIME -1 TIME * - ; 
: THRU 1+ SWAP 

DO I . I LOAD LOOP J 
: MOTOR FF21 8 TOGGLE J 



: B < BUILDS 
01F3 B BR110 

B 

B 

B 

B 



DOES> « 95 



08B4 
0057 
0629 

0612 

31A0 - 

6F con: 



BR380 
BR6Q0 
BR 1200 
BR24O0 
B NFA ! 
>TAHT CHAN 



DECIMAL 



SCR 

< 

1 ; 

2 

3 : 

4 

5 : 

6 

7 

8 : 

9 
10 : 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



24 
25 
26 
27 
28 
29 
30 
31 



COLORFORTH 1.0 > DECIMAL 
UNTIL 1 ?PAIRS COMPILE ©BRANCH 

BACK ; IMMEDIATE 
AGAIN 1 7PAIRS COMPILE BRANCH 

BACK ; IMMEDIATE 
REPEAT >R >R C COMPILED AGAIN 
R> R> 2 - C DUMP I LED 
END IF ; IMMEDIATE 
WHILE [COMPILED IF 2+ ; 

IMMEDIATE 
TEXT HERE C/L 1+ BLANKS WORD 
HERE PAD C^L 1+ CMOUE i 



HEX 

: LINE 



>DUP 



DUP FFEO AND 

SCR £ -;line> 

OUER OUER ; 
: 2DR0P DROP DROP ; 
: 2SWAP ROT >R ROT R> 
: 20UER >R >R 2DUP 
R> R> 2SWAF ; 
: TRV SCR « LOAD ; 
: B DO I OUER 1 AND 
IF 1+ END IF 
SWAP C! 2 
+LOOP DROP ; 
: PG! FFD2 FFC6 B ; 
: UDG! FFC6 FFCO B ; 
31A0 "' B NFA ! 
: UCR! 8 * FF22 C« 7 

FF22 C! ; 
: UNORM UDG! Q UCR! 
DECIMAL ;S 



17 TERROR 
DROP ; 



AND OR 
2 PG! 
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SCR 3 
8 < COLORFORTH 1.0 > 

1 HEX 

2 : B < BUILDS , DOES!: 

3 15fl B JO 

4 15B B Jl 

5 15C B J2 

6 15D B J3 

7 SlflO ' B 



•2 C* 



8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



NFA ! 

GET AMOUNT OF MEMORY 
FREE 74 « HERE - ; 



U. 
H. 



D. 
BASE 
BASE 
FORM OC 



« SWAP HEX U. 
EMIT ; 



INTERPRET CR 



: PRINT -2 CHAN C! 

CHAN C! ; 
: DUMP OVER + SWAP CR 

DO I 5 D.R SPACE I 8 + I 
DO I C« 3 .R 
LOOP CR 8 
+LOOP ; 
: THEN E COMPILE] END IF 1 

IMMEDIATE 
: ASC OA /MOD 30 + 100 * SWAP 
30 + + ; 

• TT Qlt'"^ 

BEGIN 7TIME OVER < Q= 
UNTIL DROP ; 
E>ECIMAL ;S 



SCR 4 

< COLORFORTH 1.0 > 

1 < VIEW :> HEX 

2 ED I TOR DEF I H I T I ONS 

3 : #LOCATE R# >3 C--L -'MOD ; 

4 : V SCR •* BLOCK R# « 

5 C-'L s 5-0 MAX 15 MIN 

6 C^L + + SCREEN 

7 160 SMOVE 

8 #LOCRTE DUP 

9 15 — 5 MAX MIN 

10 C^L * + SCREEN +.40 TObULE 

11 560 OL BLANKS 

12 SCR « ASC 560 ! 

13 ttLOCATE ASC 563 ! 

14 ASC 566 ! i 

15 : Z E>UP I 

16 : ?31 IF LINE OL OVER + SWAP 

17 DO I C« BL - 

18 IF DROP 1 LEAVE END IF 

19 LOOP 

20 IF ." DATA IN 31, QUIT Y^N" 

21 KEY 59 = IF Z END IF 

22 END IF ; 

23 : BMOV PAD 1+ C* IF PAD 
SWAP C^L 1+ CMOVE ELSE 
DROP END IF i 

: PADF PAD 50 + ; 

: PAD I PADF 50 + ; 

: iCUR O MAX B-BUF 1 - MIN 

R# ! ; 
DECIMAL JS 



24 
25 
26 
27 
28 
29 
30 
31 
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SCR 
6 
1 
2 
3 
4 



S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 

TV 

23 
24 



29 
30 
31 



< COLORFORTH 1.0 > 
EDITOR DEFINITIONS 

: >L# #LOCflTE SWAP DROP i 
: #LEAD #LOCATE LINE SWAP J 
: #LAG #LEAD DUP >R + 

OL R> - ; 
: -MOUE LINE i>L CMOUE ; 
: H >L# LINE PAD I 1+ OL DUP 

PAD I C! CMOUE J 
: K >L# LINE Ot BL FILL i 
: SP ?31 >L# 31 DO II- 

LINE I -MOUE -1 +LOOP K J 
: X >L# DUP H 31 < 

IF 31 SWAP 

DO I 1+ LINE I -MOUE 
LOOP 

ELSE DROP END IF 

31 LINE C^L 32 FILL J 
: C R# <8 + !CUR ; 
: T C/L * !CUR I 

-. +1 >L# + T ; 
: J 1 +T ; 

< CHANGE J TO DOWN ARROW > 
HEX 8A •' J NFA 1+ C! 

: JJ 4 +T ; 

< CHANGE JJ TO DOUBLE DOWN > 

ASA ' J J NFA 1+ ! 
: t -1 +T i 
: ft -4 +t ; 

DECIMAL ;S 



SCR 6 
6 < COLORFORTH 1.0 :> 

1 HEX 

2 : GTEXT 5E TEXT BMOU ; 

3 : <R> >L# PAD I 1+ SWAP -MOUE J 

4 : P PAD I GTEXT <R> ; 

5 : U 1 +T SP P ; 

6 : I 5 C i 

7 < CHANGE I TO RIGHT ARROW > 

8 81 89 •' I NFA ! 

9 : TOP O R# ! ; 

10 : BOT B--BUF OL - ! CUR ; 

11 : COPV BLOCK SWAP BLOCK SWAP 

12 B^BUF CMOUE ; 

13 : MATCH >R >R 2DUP R> R> 

14 2SWAP OUER + SWAP 

15 DO 2DUP FORTH I -TEXT 

16 IF >R 2DR0P R> - I SWAP - 

17 O SWAP O LEAUE 
IS END IF 

19 LOOP 2DR0P SWAP 0= SWAP ; 

20 : 1LINE #LAG PADF COUNT MATCH 

21 R# +! I 

23 : SERR TOP PADF HERE C^-'L 1 + 

24 CMOUE HERE COUNT TVPE 

25 7 EMIT ." HONE" Z i 

26 : <F> 

0~7 



29 
30 



BEGIN 3FF R# « < 

IF SERR END IF 1LINE 
UNTIL ; 



31 DECIMAL ;S 
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SCR 



1 
2 
3 
4 
5 
6 

8 
9 

10 

11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



< COLORFORTH 1.0 > HEX 
: DEL R# <8 OUER < 17 ?ERRQR 
#LHG SWAP DROP C-'L = 
IF -1 C I SMUDGE 3 1 DEL 

1 C 1 - 
END IF >R #LflG + FORTH R - 
#LflG R MINUS R# +! 
#LEAD + SWAP CMOUE 
R> -DUP I SMUDGE 1 
IF BLANKS ELSE DROP END IF ; 
: F PADF GTEXT <F> i 
i E PflDF C>3 DEL ; 
: D F E ; 
: TILL PADF GTEXT 

#LEAD + 1LINE 0= 
IF SERR END IF 
#LEAD •+ SWAP - DEL ; 
: (.!■> PAD I COUNT #LAG ROT OUER 
MIN C 2DUP PAD I COUNT + 
SWAP CMOUE CMOUE 1 
PAD I GTEXT <I> I 
E I ; 

1 SCR +! TOP ; 
-1 SCR +! TOP ; 
OUER BMAX « > 3 ?ERROR 
SCR * >R R# « >R H SWAP 
SCR ! 1+ C^L * !CUR 
SP <R> R> C-'L + !CUR 
R> SCR ! ; 
SCR « LIST ; 

CR * CLEAR 1 



SCR 8 
■; COLORFORTH 1 
1 



I 
R 
N 
B 
M 



: L 



: WIPE '■ 
DECIMAL 



;s 



4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



*1Z< 

26 
27 
28 
29 
30 
31 



RANGE 1 
SCROL 60 
5A0 



MAX 
CUR 
580 
|>L 
CUR 



,8 > HEX 
BMAX « MIN 
■3 C! 

60 CMOUE 
60 FILL 



PAD I 

PAD 1+ C« 

+T U SCROL 



5E0 
5E0 
: HEW SCROL 

BEGIN QUERV 
GTEXT 
WHILE <R> 1 
REPEAT ; 
: QIT BEGIN RP ! [COMPILED EDITOR 
SCR « RANGE SCR ! 6 BLK ! 
." [OK]" SCROL 
U QUERV INTERPRET 
AGAIN ; 
' QIT CFA •' Z ! < LINK Z>QIT > 
SIR© ' Z NFA ! < REMOUE LINK > 
: ERR HERE COUNT TVPE 

." <-?" MESSAGE SP! 
7 EMIT [COMPILED [ QIT ; 
: QUIT 1 WARNING ! 

' ABORT CFA ' < ABORTS ! 
CURRENT « CONTEXT i 
." DONE" QUIT J 
FORTH DEFINITIONS 
: EDIT [COMPILED EDITOR EDITOR 
' ERR CFA -' < ABORT > ! 
-1 WARNING ! RANGE SCR ! 
TOP QIT i 
FORTH HEX HERE H. DECIMAL ;S 
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SCF 


: 18 




8 


■:: COLORFORTH 1.0 > 


1 


HEX 






EDITOR DEFINITIONS 


o> 


: S 


PADF GTEXT 


4 




SCR « DUP >R FORTH 


5 




DO I SCR ! TOP 


6 




BEGIN 1LINE 


7 




IF U SCROL 


3 




." FOUND 


9 




KEV 3 = 


10 




IF QIT 


11 




END IF 


12 




END IF 


13 




3FF R# € < 


14 




UNTIL 


15 




LOOP R> SCR ! TOP ; 


16 


FORTH DEFINITIONS 


17 


DECIMAL ;S 


18 






19 






20 






21 







24 



SC 





4 
5 
6 



9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 



R 11 

< COLORFORTH 1.0 > 

DECIMAL 

?DUP -DUP ; 

NEGATE MINUS 1 

>IN IN ; 

EXIT R> DROP 1 

NOT 0= i 

CONUERT C NUMBER > ; 
TIB CONSTANT SO 

DNEGATE DMINUS ; 

DEPTH SP« S@ * SWAP - 

D- DMINUS D+ I 

1- 1 - i 

DO= OR 0= J 

LISTS OUER + SWAP 
DO I LIST FORM 
LOOP I 
: ASCII BL WORD HERE 1+ 
C COMPILE] LITERAL 1 
IMMEDIATE 

DECIMAL ;S 



C<8 



26 
27 
28 
29 
30 
31 



27 
28 
29 
30 
31 
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SCR 
8 
1 
2 
3 
4 
5 
6 
7 
8 
9 

10 

11 

12 

13 

14 

15 

16 

1? 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



12 
< COLORFORTH 1.0 > 
HEX 

48 USER COLOR 
4fl USER GSCR 
CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

ROT O'JER 



4000 
8008 
C000 

: D< 



GREEN 
VELLOW 
BLUE 
RED 

OVER = 
IF ROT ROT D- @< SWAP DROP 
ELSE SWAP < SWAP DROP SWHP 

DROP 
END IF i 
U< SWAP D< ; 
2£ DUP 2+ « SWAP « S 
2! OVER OUER ! 2+ 

SWAP DROP ! ; 
2COHSTANT < BUILDS , , 

DOES> 2« ; 
2UARIABLE VARIABLE , i 
D= D- D0= ; 
DMAX 20UER 20UER D< 

IF 2SWAP END IF 2DR0P ; 
DM IN 20UER 20VER D< 
IF 2DR0P 

DROP 



ELSE 2SWAP 
END IF ; 

: 0> > ; 

: R« R> R SWAP 

: 'S SP£ ; 

: PAGE 1 CLS i 

DECIMAL ;S 



>R 



24 
25 
26 
27 

2y 

29 
30 
31 



SCR 

< 

1 < 

2 < 

3 : 

4 < 

5 < 

6 < 

7 : 
3 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



13 

COLORFORTH 1.0 > 

SOURCE AND DECODE > DECIMAL 

CONDITION ALL PRINT A CR > 

?CR OUT <g 25 > IF CR END IF ; 

SEARCH FOR NAME IN DICT > 

PRINT BVTE IF NOT FOUND > 

ADDR1 > 

.NAME LATEST 

BEGIN DUP >R PFA CFA OUER = 
IF R> ?CR ID. 
ELSE R> PFA LFA « -DUP 
IF O 
ELSE 256 

. DROP 
END IF 



l\s 



END IF 



UNTIL I 

< RETURN ADDRESS OF 

< ADDR1 > 

- IS CFA CONSTANT ' 
DECIMAL ;S 



r— > ■? 



23 HOLD DOWN ANV KEV TO STOP ! i 



COLORFORTH 1.0 COPVRIGHT 1981 T.J.ZIMMER & R.J. TALBOT 



PAGE 41 OF 46 



SCR 14 




SCR 15 


S < COLORFORTH 1.0 > 







< COLORFORTH 1.0 > 


1 HEX 




1 


•'. NEW S. > DECIMAL 


3 4C USER AFLG 




3 


FORTH DEFINITIONS 


4 




4 




5 DECIMAL 




5 


: .S DEPTH -DUP 


6 




6 


IF 1+ 1 


7 : AON 1 AFLG ! ; 




\ 


DO SO 'S I 2+ 


8 




8 


LOOP 


9 : AOFF 6 AFLG ! ; 




9 


ELSE 1 MESSAGE 


10 




10 


END IF ; 


11 < ADDR1 > 




11 


DECIMAL ;S 


12 : ASOURCE 2 - 




12 




13 BEGIN 2+ AFLG « 




13 




14 IF CR DUP U. 


END IF 


14 




15 DUP « -NAME 


DUP « ';s 


15 




16 = 7TERMINAL 


OR 


16 




17 UNTIL DROP ; 




17 




IS 




18 




19 < > < FOLLOW BY S 


TRING :> 


19 




28 : SOURCE CR . " : " 




20 




21 C COMPILED •' DUP 


NFA ID. 


21 




22 ASOURCE i 




22 




23 




23 




24 DECIMAL iS 




24 




or 




9=; 




j.--' 




X.O 




26 




26 




27 




27 




28 




28 




29 




29 




36 
31 




30 
31 





« 
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SCR 


16 














SCR 17 




6 


< COLORFORTH 1.0 > 









■; COLORFORTH 1. 


> 


1 


< NEW ME 


.SSAGE > DECIMAL 




1 


C CODE DEFINITION > HEX 


2 


: MES 


S DUP 








2 


: CODE ?EXEC CREATE 


3 





= 


IF 


II 


WHAT" 


END IF 


DUP 


3 


C COMPILE 3 


ASSEMBLER ! CSP 


4 


1 


= 


IF 


II 

■ 


STACK EMPT' 


.'" END IF 


4 


IMMEDIATE 




5 










DUP 






5 


•" FORTH 2+ - fil 


5SEMBLER 4 + ! 


6 


2 


= 


IF 


It 

* 


MEM FULL" 


END IF 


DUP 


6 






7 


8 


= 


IF 


II 


BLK RANGE" 


END IF 


DUP 


7 


ASSEMBLER DEFINITIONS 


8 


17 


= 


IF 


II 


7C0MPILE" 


END IF 


DUP 


8 


: C; CURRENT * 


CONTEXT ! 


9 


18 


= 


IF 


II 

m 


7EXECUTE" 


END IF 


DUP 


9 


?EXEC ?CSP SMUDGE 1 


1© 


19 


= 


IF 


II 

* 


?PAIRS" 


END IF 


DUP 


10 


IMMEDIATE 




11 


20 


= 


IF 


II 


NOT DONE" 


END IF 


DUP 


11 


: NEXT AEA1 , 6E94 , ; 


12 


21 


= 


IF 


II 

n 


SAUED UOC" 


END IF 


DUP 


12 






13 


22 


= 


IF 


II 

m 


7LOADING" 


END IF 


DUP 


13 


FORTH DEFINITIONS 


14 


23 


= 


IF 


II 


OFFSCREEN" 


END IF 


DUP 


14 


CODE I-' 




15 


24 


= 


IF 


II 


SET UOCAB" 


END IF 




15 


< LDD 4,S 


> EC64 > 


16 


25 


= 


IF 


II 


BAD OUERLA' 


«"' END IF ; 


16 


< PUSU D 


> 3606 .. 


17 
















17 


NEXT 




18 


S 


MESS 


CFA ' MESSAGE 


i 




18 


CJ 




19 


DECIMAL 


JS 








19 


CODE J 




2& 
















20 


< LDD 8,S 


> EC68 , 


21 
















21 


< PUSU D 


> 3606 .. 


22 
















22 


■; NEXT 


> AEA1 , 6E94 


23 
















23 


c; 




24 
















24 






25 
















25 






26 
















26 






27 
















27 


DECIMAL ;S 




28 
















28 






29 
















29 






3@ 
















30 






31 
















31 
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SCR 
6 
1 
2 
3 
4 
5 
6 



9 
16 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
23 
29 
30 
31 



18 

< COLORFORTH 1.0 > 

< OVERLAYS > HEX 

i ?OU LIMIT $ 81A0 - 

19 < 25 DEC > ?ERROR 1 

". EMPTV [COMPILE] FORTH 
DEFINITIONS 
C08E « ' FORTH 4 + i 
C01S « •' EDITOR 4 + ! 
ASSEMBLER " NEXT NFA 
' ASSEMBLER 4 + ! 
LIMIT DP ! ; 

: #BLOCKS EMPTV 1 MAX 

74 £ 406 s 2 - MIN BMAX ! 
LIMIT DP ! ; 

: OULIHK ?OU LIMIT PFA DUP LFA 
LATEST SWAP ! « 
CURRENT £ ! LIMIT PFA 2+ « 
DP i ; 

: OUST ART EMPTV HERE 31A0 , 
LATEST , CURRENT * ! 
BMAX « , , , , 1 

DECIMAL ;S 



28 
29 
30 
31 



SCR 

<: 

1 < 
2 

3 : 
4 
5 
6 

8 

9 
10 : 
11 
12 
13 
14 
15 
16 : 
17 
18 
19 
20 
21 



24 
25 
26 



19 

COLORFORTH 
OUERLAVS > 



1.0 > 
DECIMAL 



OUEND ?OU LIMIT PFA LATEST 
OUER ! 

2+ HERE OUER 
LIMIT - B/BUF 
IF 1 + 
END IF SWAP ! 



2+ HERE 
.-'MOD SWAP 



OUSAUE 
DO 1 



LOOP 



'OU LIMIT PFA 4 + « O 
BLOCK I B'BUF * LIMIT 
+ SWAP B--BUF CMOUE 
1 WRITE 



OULOAD 1 READ 1 BLOCK 
DUP PFA CFA « #BLOCKS 
DUP LIMIT B-'BUF CMOUE ?OU 

PFA 4 + « 1 DUP 

IF 1+ 1 

DO 1 READ 1 BLOCK I 
B^BUF * LIMIT + 
P-'BUF CMOUE 
LOOP 
END IF OULIHK ; 



DECIMAL 
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SCR 


26 




O 


< COLORFORTH 1.0 > 




1 


HEX 




2 


: GMODE < BUILDS C, 


C, DOE 


3 


COUNT UDG! C* 


UCR! i 


4 


14 2 GMODE G2C 




5 


18 4 GMODE G3C 




6 


1C 6 GMODE G6C 




7 


CODE SET 




8 


3706 .• 862© .. 


3DDD , 


9 


02 C 3706 > 


B6 C, 


10 


COLOR > 5424 , 


0244 , 


11 


4454 > 2404 , 


4444 , 


12 


4444 , 97 C, 


04 C> 


13 


4FD3 , 02 C, 


F3 C, 


14 


GSCR , 1F01 , 


A684 , 


15 


98 C, 04 C, 


A784 .. 


16 


NEXT c; 




17 


DECIMAL SS 




18 






19 






20 






21 












23 






24 






25 






26 






27 






28 






29 






36 






31 







SCR 21 

< COLORFORTH 1.0 > 

1 HEX 

2 FORTH DEFINITIONS 

4 : TASK ; 

5 -' TASK NFA C60E ! 
6 

7 EDITOR 

8 ' S NFA CO10 ! 
9 

10 ASSEMBLER 

11 •' NEXT NFA D5B2 ! 
12 

13 FORTH DEFINITIONS 

14 DECIMAL JS 
15 

16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
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SCR 








SCR 




6 


»; COLORFORTH 1.0 > 









DECIMAL 


1 


DECIMAL 






1 


EDITOR DEFINITIONS 


2 


: DLIST 








■ 


GET PAD OL 1+ BLANKS EDITOR 


i— " 


CR CR CR CR CR 






^•» 




#LEAD O SWAP FORTH 


4 


DECIMAL CR DUP SCR 


i 




4 




DO I OUER + C<8 BL = 


5 


SCR " DUP . 32 SPACES 


5 




IF I + LEAUE END IF -1 


6 


." SCR " 1+ . B^'BLIF 


C-' 


L • 


6 




+LOOP EDITOR 


7 


DO CR 3 SPACES 






7 




#LAG FORTH 


8 


I 2 .R SPACE I S( 


I:R 


* 


8 




DO I OUER + C<8 BL = 


9 


<LINE> TVPE 3 SPACES 


9 




IF I + LEAUE END IF 


10 


I 2 .R SPACE 






10 




LOOP OUER - PAD 2DUP C! 


11 


I SCR •* 1+ .LINE 






11 




1+ SWAP CMOUE 


12 


LOOP CR FORM ; 






12 




PAD C'2 0= 


13 


". LTHRU 1+ SWAP 






13 




IF BL 256 + PAD ! 


14 


DO I DLIST 2 






14 




END IF PAD I BMOU ; 


15 


+LOOP ; 






15 






16 


DECIMAL ;S 






16 


• 


U GET PADF BMOU 


17 








17 




PAD C* DUP MINUS C 


IS 








18 




•;f> del ; 


19 








19 






20 








20 





UARIABLE JX UARIABLE JV 


21 








21 






22 










: 


U? JSTK 


23 








23 




JO 1/ JX "8 - 


24 








24 




Jl 2s JV « - OR 


25 








25 




IF J6 2S DUP JK ! 


26 








26 




Jl 2/ DUP JV ! 


27 








27 




C^'L * + !CUR U 


28 








28 




END IF I 


29 








29 


DECIMAL ;S 


30 








30 






31 








31 







COLORFORTH 1.0 COPYRIGHT 1931 T.J.ZIMMER & R.J. TALBOT 



PAGE 46 OF 46 



SCR 


24 












SCR 25 





DECIMAL 













1 


: DL 1 


C 1 


DEL 


* 






1 


2 


: Q SCROL . 


11 X 


•" QUER' 


.' ; 




2 


3 


: J SCROL 6 J* 


: ! J' 


•/ ! U 




3 


4 


BEGIN EDITOR 7TERMINAL 


DUP 


4 


5 


IF 


DUP 










5 


6 


ASCII 


G = 


IF 


GET 


END IF 


DUP 


6 


7 


ASCII 


U = 


IF 


W 


END IF 


DUP 


7 


3 


ASCII 


c — 


IF 


SP 


END IF 


DUP 


S 


9 


ASCII 


X = 


IF 


y. 


END IF 


DUP 


9 


10 


ASCII 


K = 


IF 


K 


END IF 


DUP 


10 


11 


ASCII 


H = 


IF 


H 


END IF 


DUP 


11 


12 


ASCII 


B = 


IF 


B 


END IF 


DUP 


12 


13 


ASCII 


N = 


IF 


N 


END IF 


DUP 


13 


14 


ASCII 


Q = 


IF 


DROP 3 


END IF 


DUP 


14 


15 


ASCII 


U = 


IF 


Q U 


END IF 


DUP 


15 


16 


ASCII 


P = 


IF 


Q P 


END IF 


DUP 


16 


17 


ASCII 


I = 


IF 


Q I 


END IF 


DUP 


17 


18 


ASCII 


R = 


IF 


Q R 


END IF 


DUP 


13 


19 


ASCII 


= 


IF 


>;i> 


END IF 


DUP 


19 


20 


ASCII 


D = 


IF 


Q D 


END IF 


DUP 


20 


21 




12 = 


IF 


DL 


END IF 


DUP 


21 


22 


1 


BL = 


IF 


SCROL 


." cmd: 


■*. II 


22 


23 








QUERY 


INTERPRET 


23 


24 






END IF 






24 


25 






SCR « RANGE SCR 


! U 


25 


26 






#LOCATE J 


V ! JX 


i 


26 


27 


END IF I 


J? 








27 


28 


03 


= UNTIL I 






23 


29 


FORTH 1 


DEFINITIONS DECIMAL 


;s 


29 


30 














30 


31 














31 



